如何用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) 

使用公式