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

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

Mathematica code:ListAnimate[Table[
Graphics[
GraphicsComplex[
Table[
{-1^n*Sin[n*a], 1^n*Cos[n*a]}, {n, 0, 100}],
Polygon[Table[i, {i, 1, 100, 1}]]],
PlotRange -> .65, ImageSize -> 500],
{a, 2.59523, 2.59994, .00015}]]