Mathematica code: Animate[ Graphics[ Table[ Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]}, t + (100 - n) (1 + Sign[100 - n])/2], {n, 0, 100, 1}, {i, 0, 7, 1}], PlotRange -> 1, ImageSize -> 500], {t, 0, 1, .1}]

Mathematica code:

Animate[
  Graphics[
    Table[
      Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]},
       t + (100 - n) (1 + Sign[100 - n])/2],
    {n, 0, 100, 1}, {i, 0, 7, 1}],
  PlotRange -> 1, ImageSize -> 500],
 {t, 0, 1, .1}]
Notes: 1196 11/16/11 — 12:00pm Filed under: #GIF  #Mathematica  #circles 
 
  1. widictdonbi reblogged this from intothecontinuum
  2. thomasboy reblogged this from fuckyeahmath
  3. is4031 reblogged this from fuckyeahmath
  4. remasilpe reblogged this from intothecontinuum
  5. canwilanmo reblogged this from intothecontinuum
  6. torcerencu reblogged this from intothecontinuum
  7. bmsamy reblogged this from tetriak
  8. tetriak reblogged this from johavic
  9. ocean-of-nectar reblogged this from katmandu and added:
    It’s Saturday morning here down under, An my bandwidth fluctuates dramatically like a proverbial……. the price of living...
  10. estellaruthstar reblogged this from intothecontinuum
  11. bradparbs reblogged this from intothecontinuum
  12. wavezofonesunnymind reblogged this from intothecontinuum
  13. societyforcedme reblogged this from surreal-life
  14. waddiwasibubblegum reblogged this from fuckyeahmath
  15. dissociative-land reblogged this from fuckyeahmath
  16. whenthewavescrash reblogged this from atrociousminds
  17. bornonadaythesundidntrise reblogged this from interestellar
  18. interestellar reblogged this from rootgroove and added:
    Mathematica code: Animate[ Graphics[ Table[ Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]}, t + (100 - n) (1 + Sign[100 -...
  19. van-c0uver reblogged this from atrociousminds
  20. instanigif reblogged this from intothecontinuum
  21. atrociousminds reblogged this from tanganillo
  22. lost-id reblogged this from intothecontinuum
  23. randomnia reblogged this from nukyakabom
  24. jamsinglairfockismalism reblogged this from fuckyeahmath
  25. myticketouttaloserville reblogged this from clzym
  26. bone-fragments reblogged this from xvoluspa
  27. lazyyants reblogged this from dansmerde
  28. dansmerde reblogged this from rixim and added:
    Animate[ Graphics[ Table[ Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]}, t + (100 - n) (1 + Sign[100 - n])/2], {n, 0,...
  29. justenigmatic reblogged this from daydreamingteen
  30. rixim reblogged this from xvoluspa
  31. daydreamingteen reblogged this from intothecontinuum
  32. kelseycadaver reblogged this from 2headedsnake
  33. jai-gagne reblogged this from xvoluspa
  34. scarabs reblogged this from neoclassic
  35. spica1991 reblogged this from adsertoris
  36. ofaliens reblogged this from liocorno