Sunflower fractal: Difference between revisions
no edit summary
No edit summary |
|||
Line 293:
end
</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}}==
| |||