Nov
12th
Sat
12th
![intothecontinuum:
Mathematica code:
v1 := {1 + Cos[Pi/3], Sin[Pi/3]}
v2 := {0, 2 Sin[Pi/3]}
Animate[
Graphics[
Table[Rotate[Table[{PointSize[.032],
Point[
Table[ {Cos[n*2*Pi/6], Sin[n*2*Pi/6]} + m1*v1 + m2*v2,
{n, 0, 5}]]},
{m1, -15, 15}, {m2, -15, 15}], t*o], {o, 0, 1, 1}],
PlotRange -> 15, ImageSize -> 500],{t, 0, Pi/10, Pi/120}]](http://26.media.tumblr.com/tumblr_ludpxrGwTH1qfjvexo1_400.gif)
Mathematica code:
v1 := {1 + Cos[Pi/3], Sin[Pi/3]} v2 := {0, 2 Sin[Pi/3]} Animate[ Graphics[ Table[Rotate[Table[{PointSize[.032], Point[ Table[
{Cos[n*2*Pi/6], Sin[n*2*Pi/6]} + m1*v1 + m2*v2, {n, 0, 5}]]}, {m1, -15, 15}, {m2, -15, 15}], t*o], {o, 0, 1, 1}], PlotRange -> 15, ImageSize -> 500],
{t, 0, Pi/10, Pi/120}]
(via proofmathisbeautiful)
