如何用R创建Phyllotaxis螺旋线

Question

如何在R中创建Phyllotaxis螺旋线？这样的图像的实施例被示出在该页面的底部：http://www.mathrecreation.com/2008/09/phyllotaxis-spirals.html的图像被附加如下：

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

我搜索，发现这个方法：Spiral Graph in R 但它不创建上述模式之一。

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

使用公式