Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
Mathematica code:
Mathematica code:
Animate[
Graphics[
Line[
Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]],
PlotRange -> p],
{p, .5, .47, .01}]
Graphics[
Line[
Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]],
PlotRange -> p],
{p, .5, .47, .01}]
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου