Mathematica code:
Manipulate[ Graphics[ Line[ Table[{-r^n*Sin[n*a], r^n*Cos[n/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, .001, 4*Pi, .001}, {s, 1, 800, 1}]
(Source: intothecontinuum) |
Mathematica code:
Manipulate[ Graphics[ Line[ Table[{-r^n*Sin[n*a], r^n*Cos[n/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, .001, 4*Pi, .001}, {s, 1, 800, 1}]
(Source: intothecontinuum)
3 months ago / 93 notes
|