Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
r = .98
7.284 ≤ a ≤ 7.286
s = 600
Mathematica code:
r = .98
7.284 ≤ a ≤ 7.286
s = 600
Mathematica code:
Manipulate[
Graphics[
Line[
Table[{-r^n*Sin[n*a], r^n*Cos[n*a]}, {n, 0, s}]],
PlotRange -> .01],
{r, .1, 1}, {a, .001, 4*Pi, .001}, {s, 1, 800, 1}]
Graphics[
Line[
Table[{-r^n*Sin[n*a], r^n*Cos[n*a]}, {n, 0, s}]],
PlotRange -> .01],
{r, .1, 1}, {a, .001, 4*Pi, .001}, {s, 1, 800, 1}]
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου