Anonymous user
Sunflower fractal: Difference between revisions
no edit summary
No edit summary |
|||
Line 294:
end procedure
main()</lang>
=={{header|R}}==
<lang R>
phi=1/2+sqrt(5)/2
r=seq(0,1,length.out=1000)
theta=numeric(length(r))
theta[1]=0
for(i in 2:length(r)){
theta[i]=theta[i-1]+phi*2*pi
}
x=r*cos(theta)
y=r*sin(theta)
par(bg="black",pch=1)
plot(x,y,pch=20,cex=.2)
size=seq(.5,1,length.out = length(x))
thick=seq(.1,2,length.out = length(x))
for(i in 1:length(x)){
points(x[i],y[i],cex=size[i],col="goldenrod1",lwd=thick[i])
}
</lang>
{{Out}}
<pre>
[https://raw.githubusercontent.com/schwartstack/sunflower/master/sunflower.png Sunflower]
</pre>
=={{header|Ring}}==
| |||