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]

(via shinyslingback-blog)

1,388 notes

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