h1

Waterfall

March 8, 2013


Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
G[A_, s_, c_, T_, x_] := A*T*Exp[-(x – c)^2/s]

ListAnimate[
Show[
Table[
Plot[
100 – n +
Sum[G[.05, 6, 100*R[n],
Sum[G[1, .01, k – R[2 n], 1, m/100 + t],
{k, -3, 3, 1}],
x],
{n, 1, 100, 1}],
{x, -10, 110}],
PlotStyle -> Directive[Black], PlotRange -> {{-10, 110}, {0, 100.5}},
Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full,
ImageSize -> {500, 700}],
{n, 0, 100, 1}]],
{t, 0, .95, .5}, AnimationRunning->False]

Via Intothecontinuum

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s