maihudson: "Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 t]; Manipulate[ Show[ Table[ Plot[ 100 - n (20*Abs[S[n,t]] .02)*Exp[-(x - 4

    maihudson: "Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 t]; Manipulate[ Show[ Table[ Plot[ 100 - n (20*Abs[S[n,t]] .02)*Exp[-(x - 4

    From Intothecontinuum.tumblr.com

    #222f40 #38475c #717e8f #aab6c7 #cedae8

    M – R – C – L @ Varieté Saved to Artwork