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))