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}]

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}]
 
  1. notimmunetoit reblogged this from proofmathisbeautiful
  2. kirish reblogged this from nerdinlove
  3. shadowsdarkrealm reblogged this from pathosforbathos
  4. pathosforbathos reblogged this from intothecontinuum
  5. halfasian reblogged this from intothecontinuum
  6. ep12390 reblogged this from purehemp
  7. serotonin-extremism reblogged this from nerdinlove
  8. chroniques reblogged this from nerdinlove
  9. mdlnnttng reblogged this from iwillharpoonyou
  10. tolivebythesea reblogged this from nerdinlove
  11. stealth-mode reblogged this from nerdinlove
  12. blogi0 reblogged this from nerdinlove
  13. jeanacker reblogged this from nerdinlove
  14. porquenomedalagana reblogged this from gatricio
  15. gatricio reblogged this from e-preciiouz
  16. iwillharpoonyou reblogged this from nerdinlove
  17. purplegem reblogged this from nerdinlove
  18. e-preciiouz reblogged this from nerdinlove
  19. nerdinlove reblogged this from intothecontinuum
  20. rootcat reblogged this from intothecontinuum
  21. -beautiful-insanity- reblogged this from contemplatingmadness
  22. isometries reblogged this from intothecontinuum
  23. anna-maria-v reblogged this from proofmathisbeautiful
  24. rufushund reblogged this from proofmathisbeautiful
  25. davidhagar reblogged this from proofmathisbeautiful
  26. chelsapp reblogged this from proofmathisbeautiful and added:
    Mathematica code:...v1 := {1 + Cos[Pi/3], Sin[Pi/3]} v2 := {0, 2 Sin[Pi/3]} Animate[...
  27. thisisourbattlesong reblogged this from pythagoreantheorem
  28. pythagoreantheorem reblogged this from proofmathisbeautiful
  29. ucmst-blog reblogged this from proofmathisbeautiful
  30. sdbrown reblogged this from intothecontinuum