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[20, 5, 100*R[2n],
Sum[G[1, .15, k - R[4 n], 1, m/100 + t],
{k, -3, 3, 1}],
x],
{n, 1, 30, 1}],
{x, -10, 110}],
PlotStyle -> Directive[Black], PlotRange -> {{0, 90}, {0, 100.5}},
Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full,
ImageSize -> {450, 600}],
{n, 0, 100, 1}]],
{t, 0, 14/15, 1/15}, AnimationRunning->False]
A mileysyrups le gusta esto
chtjls ha reblogueado esto desde viveleblanc
viveleblanc ha reblogueado esto desde quirkylittlebird shamircamto ha reblogueado esto desde freeb00ty
A habilvekabil le gusta esto
A lansing1997 le gusta esto A mennyfox55 le gusta esto
quirkylittlebird ha reblogueado esto desde intothecontinuum
A quirkylittlebird le gusta esto
freeb00ty ha reblogueado esto desde dropbearsamba
hello-lag ha reblogueado esto desde psychostimulant
A niltutgut le gusta esto
A flabmom le gusta esto A doomroar le gusta esto
dropbearsamba ha reblogueado esto desde redlipstickresurrected
A dassi le gusta esto
A intheislandofjamaica le gusta esto
A imaginayselibre le gusta esto
milk-and-meat ha reblogueado esto desde redlipstickresurrected
A otipemisiwak-archive le gusta esto
tumblinginthedeep ha reblogueado esto desde redlipstickresurrected
nbqx ha reblogueado esto desde generic-art
psychostimulant ha reblogueado esto desde redlipstickresurrected
A cizro le gusta esto
A marewo le gusta esto
missyfinn ha reblogueado esto desde generic-art
A kneipho le gusta esto
mymistakesweremadeforu ha reblogueado esto desde generic-art
A spiderpiano le gusta esto
A marshbride le gusta esto
A nihilitydream le gusta esto
crystalcarmel ha reblogueado esto desde generic-art
A itsme-bitchx le gusta esto
A les-art-est-mort le gusta esto
A seanfntn le gusta esto
A bigcolorcycle le gusta esto
noelineb ha reblogueado esto desde generic-art
A bobbydoodie le gusta esto
A intoxic8me le gusta esto
homiesick ha reblogueado esto desde generic-art
generic-art ha reblogueado esto desde redlipstickresurrected
A pinkhairedspy le gusta esto
A lesstalkmoreillustration le gusta esto
skjoanna ha reblogueado esto desde redlipstickresurrected
midgardianmurderess ha reblogueado esto desde redlipstickresurrected
A midgardianmurderess le gusta esto
A milk-and-meat le gusta esto
intothecontinuum ha publicado esto
- Mostrar más notas
![intothecontinuum:
“ 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[20, 5, 100*R[2n],
Sum[G[1, .15, k - R[4 n], 1, m/100 + t],
{k, -3, 3,...](https://66.media.tumblr.com/tumblr_m5y8uiEvKx1qfjvexo1_500.gif)