Δευτέρα 12 Νοεμβρίου 2012

▪Κύκλοι....εν δράσει

intothecontinuum: Mathematica code: G[t_, h_, o_, s_, P_] := Graphics[{ {White, Thickness[h], Opacity[o], Table[ Circle[ {i + t, -1}, s], {i, -1, .8, .2}], Table[ Circle[ {i - t, 1}, s], {i, -.8, 1, .2}], Table[ Circle[ {-1, j - t}, s], {j, -.8, 1, .2}], Table[ Circle[ {1, j + t}, s], {j, -1, .8, .2}] } }, Background -> Black, ImageSize -> 500, PlotRange -> P]ListAnimate[ Table[ G[t, .005, 1, 1, 2.1], {t , 0 , .18, .02}]]
Αναρτήθηκε από στις 12.11.12
Ετικέτες

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου

Εγγραφή σε: Σχόλια ανάρτησης (Atom)