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)) -- ^◎◎^ ( (∞) ) im a pig --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.200.213.24 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1582282660.A.A8D.html