![Intothecontinuum: Mathematica Code: S[N_, T_] := Sin[N*3 Pi/50 + T]Listanimate[](https://64.media.tumblr.com/tumblr_m4v5wx49rr1qfjvexo1_250.gif)
Intothecontinuum: 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 -&Amp;Gt; Directive[Black, Thick], Plotrange
![Intothecontinuum: Mathematica Code: S[N_, T_] := Sin[N*2 Pi/50 + T]Listanimate[](https://64.media.tumblr.com/tumblr_m57zrlLlVx1qfjvexo1_250.gif)
Intothecontinuum: Mathematica Code: S[N_, T_] := Sin[N*2 Pi/50 + T]Listanimate[ Show[ Table[ Plot[ 100 - N + (10*S[N,T] + .02)*Exp[-(X - 4.5*S[N, 0])^2/Abs[S[N,T]]], {X, -10, 10}, Plotstyle -&Amp;Gt; Directive[Black, Thick], Plotrange -&Amp;Gt;