Best Porn Thumbnails

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 -> Directive[Black, Thick], PlotRange