Mathematica code:
S[n_, t_] := Sin[n*3 Pi/50 + t]ListAnimate[ Show[   Table[    Plot[     100 - n + (20*Abs[S[n,t]] + .02)*Exp[-(x - 4*S[n, t])^2/Abs[S[n,t]]],      {x, -10, 10},    PlotStyle -> Directive[Black, Thick], PlotRange -> {{-7, 7}, {0, 100}},    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full,     ImageSize -> {500, 750}],  {n, 1, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning->False]

Mathematica code:

S[n_, t_] := Sin[n*3 Pi/50 + t]

ListAnimate[
Show[
Table[
Plot[
100 - n + (20*Abs[S[n,t]] + .02)*Exp[-(x - 4*S[n, t])^2/Abs[S[n,t]]],
{x, -10, 10},
PlotStyle -> Directive[Black, Thick], PlotRange -> {{-7, 7}, {0, 100}},
Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full,
ImageSize -> {500, 750}],
{n, 1, 100, 1}]],
{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning->False]
 
  1. 43shades reblogged this from sttab
  2. meandmyballoon reblogged this from visualizingmath
  3. ailhouse reblogged this from visualizingmath
  4. isrey1 reblogged this from ralyto
  5. jtltclothing reblogged this from 0nlykid and added:
    This is out of control
  6. icangofartherthanyou reblogged this from deathmoans
  7. succeedd reblogged this from protectmefrom
  8. protectmefrom reblogged this from hydrotoxicity
  9. casteel6 reblogged this from trapahol
  10. nbcomix reblogged this from visualizingmath
  11. ceffie reblogged this from bl0wn-ta-bits
  12. toofarr reblogged this from doublelo
  13. staytrippybih reblogged this from bocas-con-sonrisas
  14. doublelo reblogged this from adamsandlersslasherflicks
  15. bocas-con-sonrisas reblogged this from paoumichelle
  16. littlehowler reblogged this from eqlipse
  17. eqlipse reblogged this from adamsandlersslasherflicks
  18. adamsandlersslasherflicks reblogged this from zvlg
  19. cruddyblogger reblogged this from intothecontinuum
  20. p3culiar-n-such reblogged this from duchessnkittens
  21. duchessnkittens reblogged this from duchessnkittens
  22. getradikal reblogged this from intothecontinuum
  23. cafe-bleu reblogged this from gif-art
  24. unluckii-punk reblogged this from vagabondyouth
  25. positivexvibess reblogged this from kingedgardo
  26. kingedgardo reblogged this from properlyprospering
  27. raraavislove reblogged this from 007dave
  28. spacedoutodyssey reblogged this from theinnerflow
  29. 007dave reblogged this from intothecontinuum
  30. ilovehrusky reblogged this from organicdreams
  31. mak-sude reblogged this from lemeteque
  32. suh-weetness reblogged this from lemeteque
  33. lemeteque reblogged this from visualizingmath