JUST DON'T
2011/11/18
905 notes
905 notes
Mathematica code:
Animate[
Graphics[
Table[
Circle[{30*Cos[i*Pi/4], 30*Sin[i*Pi/4]},
t + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 7, 1}],
PlotRange -> 12, ImageSize -> 500],
{t, 0, 1, .1}]
(via proofmathisbeautiful)
![intothecontinuum:
Mathematica code:
Animate[ Graphics[ Table[ Circle[{30*Cos[i*Pi/4], 30*Sin[i*Pi/4]}, t + (50 - n) (1 + Sign[50 - n])/2], {n, 0, 50, 1}, {i, 0, 7, 1}], PlotRange -> 12, ImageSize -> 500], {t, 0, 1, .1}]](http://25.media.tumblr.com/tumblr_lup7ifpFyv1qfjvexo1_500.gif)
