Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
Mathematica code:
Mathematica code:
ListAnimate[
Table[Show[
Table[Graphics[
GraphicsComplex[
Table[
{-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586],
(.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]},
{n, 0, 416}],
{Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}],
PlotRange -> .04, ImageSize -> 500],
{G, {0, 1}}]],
{t, 0, .95, .05}]]
Table[Show[
Table[Graphics[
GraphicsComplex[
Table[
{-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586],
(.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]},
{n, 0, 416}],
{Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}],
PlotRange -> .04, ImageSize -> 500],
{G, {0, 1}}]],
{t, 0, .95, .05}]]
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου