three wavy lines in black and white, with one line going through the middle to the left
Save
ultrazapping.tumblr.com

ultrazapping

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 ->...

2 Comments