Κυριακή 24 Ιουνίου 2012

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

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

Code for Mathematica:
Manipulate[
Graphics[
{Thickness[.005],
{Table[Circle[{0, 0}, r], {r, 0, 1, .05}],
Table[Circle[{2 t, 0}, r], {r, 0, 1, .05}],
Table[Circle[{-2 t, 0}, r], {r, 0, 1, .05}],
Table[Circle[{0, 2 t}, r], {r, 0, 1, .05}],
Table[Circle[{0, -2 t}, r], {r, 0, 1, .05}]}}],
{t, 0, 1, .05}]

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

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