如何用R创建叶序螺旋[关闭]

【问题标题】：How to create Phyllotaxis Spirals with R [closed]如何用R创建叶序螺旋[关闭]
【发布时间】：2015-02-04 05:35:46
【问题描述】：

如何在 R 中创建叶序螺旋？此类图片的示例显示在本页底部：http://www.mathrecreation.com/2008/09/phyllotaxis-spirals.html 图片附在下面：

这些也类似于费马螺旋：http://en.wikipedia.org/wiki/Fermat%27s_spiral

我搜了一下，找到了这个方法：Spiral Graph in R 但它不会创建上述模式之一。

【问题讨论】：

标签： r plot

【解决方案1】：

使用来自http://algorithmicbotany.org/papers/abop/abop-ch4.pdf的公式

golden.ratio = (sqrt(5) + 1)/2
fibonacci.angle=360/(golden.ratio^2)
c=1
num_points=630
x=rep(0,num_points)
y=rep(0,num_points)

for (n in 1:num_points) {
    r=c*sqrt(n)
    theta=fibonacci.angle*(n)
    x[n]=r*cos(theta)
    y[n]=r*sin(theta)
}
plot(x,y,axes=FALSE,ann=FALSE,pch=19,cex=1)

【讨论】：