Mathematica code:
ListAnimate[Table[ ImageCrop[  Graphics[   {White, Line[     Table[      {-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]},      {n, 0, If[0 < t < 51, 21 + 7*t, If[50 < t, 400 + 30*(t - 51), 0]]}]]},   PlotRange -> 1/5, ImageSize -> 800, Background -> Black], {500, 700}],{t, 0, 60, 1}]]

Mathematica code:

ListAnimate[
Table[
ImageCrop[
Graphics[
{White, Line[
Table[
{-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]},
{n, 0, If[0 < t < 51, 21 + 7*t, If[50 < t, 400 + 30*(t - 51), 0]]}]]},
PlotRange -> 1/5, ImageSize -> 800, Background -> Black],
{500, 700}],
{t, 0, 60, 1}]]
 
  1. wileycyote reblogged this from visualizingmath
  2. nickname49 reblogged this from intothecontinuum
  3. superbullshit64 reblogged this from noraaofthemountain
  4. feedmebearzilla reblogged this from bestofthewest
  5. bestofthewest reblogged this from 404linknotfound
  6. 404linknotfound reblogged this from visualizingmath
  7. unnervingcontemplations reblogged this from visualizingmath
  8. naginn reblogged this from intothecontinuum
  9. paprikazz reblogged this from azemoten
  10. thecoolarchitecos reblogged this from visualizingmath
  11. del0nger reblogged this from visualizingmath
  12. applesauce-pack reblogged this from slytherinmychamber
  13. giaz00 reblogged this from visualizingmath
  14. azemoten reblogged this from visualizingmath
  15. owlbeyourmessenger reblogged this from visualizingmath
  16. hellosalutationsreality reblogged this from visualizingmath
  17. logicislife reblogged this from visualizingmath
  18. emelyzee reblogged this from visualizingmath
  19. denizenoftheuniverse reblogged this from visualizingmath