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[.5, 6, 100*R[n],
Sum[G[1, .01, k - R[2 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[.5, 6, 100*R[n],
Sum[G[1, .01, k - R[2 n], 1, m/100 + t],
{k, -3, 3, 1}],
x],
{n, 1, 50, 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]
(Reblogueado desde meatyogre)

Notas

  1. corpvstristis ha reblogueado esto desde cubidez-blog
  2. decadentfuntree ha reblogueado esto desde gree
  3. soundtracks-pagenine ha reblogueado esto desde intothecontinuum
  4. sineeffect ha reblogueado esto desde waverider-clips
  5. holaerica ha reblogueado esto desde skeletonsinyourwardrobe
  6. joannennaoj ha reblogueado esto desde ico
  7. shigemitani ha reblogueado esto desde waverider-clips
  8. waverider-clips ha reblogueado esto desde ico
  9. skeletonsinyourwardrobe ha reblogueado esto desde ico
  10. ico ha reblogueado esto desde manamiinoue
  11. zwartevormen-gifs ha reblogueado esto desde intothecontinuum
  12. mybelobru ha reblogueado esto desde intothecontinuum
  13. estacoisaeumbocadodos2 ha reblogueado esto desde small--naomi
  14. lovekatz ha reblogueado esto desde intothecontinuum
  15. reggieandall ha reblogueado esto desde laustuff-blog-blog
  16. caiman212 ha reblogueado esto desde ultrazapping
  17. m0sca ha reblogueado esto desde r-a-u-s-c-h
  18. fernandaesquinca ha reblogueado esto desde lefoqer
  19. chachapossum ha reblogueado esto desde intothecontinuum
  20. z-eswp ha reblogueado esto desde seen-by-warfield
  21. intothecontinuum ha publicado esto