▪ Όμορφα μοτίβα - 4

Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.

r = 1
2.005 ≤ a ≤ 2.00502
401 ≥ s ≥ 399
Mathematica code:
Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
PlotRange -> 1.3],
{r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]