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*3 Pi/50 + T]Listanimate[](https://64.media.tumblr.com/tumblr_m4v5wx49rr1qfjvexo1_250.gif)
rosotova: freak-cl: Esta bueno este web comic fuente SMBC-COMIC | Via elguindilla Morí.
