ctrl + y 可以刪除一整行，請將不需要的內容刪除
文章分類提示:
- 問題: 當你想要問問題時，請使用這個類別
- 分享: 當你看到別人的心得時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性
)
- 情報: 當你看到消息時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性)
- 心得: 當你自己想要分享經驗時，請使用這個類別。
- 討論: 當你自己已經有答案，但是也想聽聽版友意見時
[關鍵字]:R語言,plot函數,國徽,陸皓東,幾何,極座標,弦環圖
[重點摘要]:據說革命先烈陸皓東是用以下幾何繪圖方法畫出國徽
# R 程式-1
# 用極座標來決定12個點的位置，再規則的距離5跳接而成
n <- 12
h <- 5
theta <- seq(0,2*pi,2*pi/n)
x0 <- cos(theta)
y0 <- sin(theta)
x<- x0
y<- y0
for (k in (1:n-1)) {
x[k+1] <- x0[(h*k)%%n+1]
y[k+1] <- y0[(h*k)%%n+1]
}
plot(x,y,type="l",lwd=2,col="blue",xlim=c(-1,1),ylim=c(-1,1))
# R 程式-2
# 先畫圓圈再改變偶點的半徑畫出12個光芒
theta <- seq(0, 6.5450, 0.2618)
x <- cos(theta)
y <- sin(theta)
plot(x,y,type="l",lwd=7,col="blue",xlim=c(-3,3),ylim=c(-3,3))
par(new=TRUE)
for (k in seq(1,25,2)) {
x[k] <- cos(theta[k])*2
y[k] <- sin(theta[k])*2
}
plot(x,y,type="l",lwd=2,col="blue",xlim=c(-3,3),ylim=c(-3,3))