R을 사용하여 Phyllotaxis 나선을 만드는 방법

Question

R에서 Phyllotaxis 나선은 어떻게 만들 수 있습니까? http://www.mathrecreation.com/2008/09/phyllotaxis-spirals.html를 화상 이하 첨부 : 이러한 이미지 실시 예는이 페이지의 하단에 도시되어 I가 탐색하고이 방법을 발견 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) 

에서 공식을 이용하여