Sunflower fractal: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 293: | Line 293: | ||
end |
end |
||
</lang> |
</lang> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>numseeds = 3000; |
|||
pts = Table[ |
|||
i = N[ni]; |
|||
r = i^GoldenRatio/numseeds; |
|||
t = 2 Pi GoldenRatio i; |
|||
Circle[AngleVector[{r, t}], i/(numseeds/3)] |
|||
, |
|||
{ni, numseeds} |
|||
]; |
|||
Graphics[pts]</lang> |
|||
=={{header|Microsoft Small Basic}}== |
=={{header|Microsoft Small Basic}}== |