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[ 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;