JUST DON'T
2011/11/18
924 notes
924 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}] ”](https://64.media.tumblr.com/tumblr_lup7ifpFyv1qfjvexo1_500.gifv)
