![intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*2 Pi/50 + t]ListAnimate[](https://64.media.tumblr.com/tumblr_m57zrlLlVx1qfjvexo1_1280.gif)
[shorthairchicks ] [shortskirts ]
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 -> Directive[Black, Thick], PlotRange ->
