Mathematica code:

S[n_, t_] := Sin[n* Pi/25 + t]ListAnimate[ Show[   Table[    Plot[     100 - n + Sum[(8*S[n,t] + .02)*Exp[-(x - k*5*S[n, 0])^2/Abs[.3*S[n,t]]], {k,{-1,1}}],     {x, -10, 10},    PlotStyle -> Directive[Black, Thick], PlotRange -> {{-7, 7}, {0, 100.5}},    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full,     ImageSize -> {500, 750}],  {n, -10, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning->False]
Filed under: #GIF  #Mathematica  #waterfall plot  #wavy

1. beatrisellierb reblogged this from l-ikn
2. angmengai reblogged this from l-ikn
3. electrique-honey reblogged this from youslicesoniceandnicely
4. cosmic-monsters-inc reblogged this from youslicesoniceandnicely
5. youslicesoniceandnicely reblogged this from holographing
6. k0ngnamuul reblogged this from holographing
7. apartment-of-a-thinker reblogged this from trnng
8. trnng reblogged this from holographing
9. thatnerdyboy reblogged this from semiconductive
10. semiconductive reblogged this from encyclia
11. encyclia reblogged this from r-i-e-n-a
12. r-i-e-n-a reblogged this from holographing
13. p00pking reblogged this from maeumsoge
14. maeumsoge reblogged this from serotoninjuice
15. mesh-es reblogged this from emily-huynh
16. sharkbitten reblogged this from holographing
17. meeegunz reblogged this from serotoninjuice
18. serotoninjuice reblogged this from holographing
19. sadakongsingkit reblogged this from holographing
20. xbren-bread reblogged this from emily-huynh
21. emily-huynh reblogged this from holographing
22. holographing reblogged this from garonshong
23. theempireofdesire reblogged this from only-art-n-prints-review
24. an-t-enn-a reblogged this from only-art-n-prints-review
25. only-art-n-prints-review reblogged this from garonshong
26. garonshong reblogged this from eggghead
27. eggghead reblogged this from intothecontinuum
28. l-ikn reblogged this from intothecontinuum
29. cafe-bleu reblogged this from televandalist
30. 3t1hvv reblogged this from intothecontinuum