Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
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}]]
Έρχεται το πολλαπλό βιβλίο ΝΕΟ — βρες όλες τις επιλογές εδώ
PDF & Ψηφιακά Μαθησιακά Αντικείμενα — χωρίς εγγραφή • Portify
📚 437 βιβλία🎬 22.000+ Ψηφιακά Μαθησιακά Αντικείμενα
Δες τα βιβλία →
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου