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

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, 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]

169 notes

  1. chtjls reblogged this from viveleblanc
  2. viveleblanc reblogged this from quirkylittlebird
  3. shamircamto reblogged this from freeb00ty
  4. quirkylittlebird reblogged this from intothecontinuum
  5. freeb00ty reblogged this from dropbearsamba
  6. hello-lag reblogged this from psychostimulant
  7. dropbearsamba reblogged this from redlipstickresurrected
  8. milk-and-meat reblogged this from redlipstickresurrected
  9. tumblinginthedeep reblogged this from redlipstickresurrected
  10. nbqx reblogged this from generic-art
  11. psychostimulant reblogged this from redlipstickresurrected
  12. missyfinn reblogged this from generic-art
  13. mymistakesweremadeforu reblogged this from generic-art
  14. crystalcarmel reblogged this from generic-art
  15. noelineb reblogged this from generic-art
  16. homiesick reblogged this from generic-art
  17. generic-art reblogged this from redlipstickresurrected
  18. skjoanna reblogged this from redlipstickresurrected
  19. midgardianmurderess reblogged this from redlipstickresurrected
  20. intothecontinuum posted this