Now Playing Tracks

intothecontinuum:

Mathematica code:

S[n_, t_] := Sin[n*2 Pi/50 + t]

ListAnimate[
Show[
Table[
Plot[
100 - n + (10*S[n,t] + .02)*Exp[-(x - 4.5*S[n, 0])^2/Abs[S[n,t]]],
{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]

1,417 リアクション

via 3.14159265
  1. adder-rallsilver-r0sesからリブログしました
  2. silver-r0sesartdiscoverからリブログしました
  3. legendofthelegendwork-elatedからリブログしました
  4. work-elatedswagdiariesからリブログしました
  5. caiman212ultrazappingからリブログしました
  6. obliviousnuxhi-fructoseからリブログしました
  7. hi-fructoselahuliaからリブログしました
  8. lahuliaphnargからリブログしました
  9. crystalcrossesphnargからリブログしました
  10. they-call-me-judephnargからリブログしました
  11. phnargzeedikayからリブログしました
  12. wxldflowerskinnyydippingからリブログしました
  13. miragemxfoisからリブログしました
  14. hands-like-secretslueanneからリブログしました
  15. no-ones-beautiful-little-foollueanneからリブログしました
  16. lueanneescapejournalからリブログしました
  17. xfoisaglassballoonからリブログしました
  18. auuudeultrazappingからリブログしました
  19. cartoons-and-cerealwile-e-coyotecartoons-and-cereal-wileecoyoteからリブログしました
  20. bluesundropsintothecontinuumからリブログしました
  21. aglassballoonsuch-a-narcissistからリブログしました
  22. dadankyoungsteezysuch-a-narcissistからリブログして、コメントを追加しました:
    dude not right now
  23. thisrhythmsuch-a-narcissistからリブログしました
  24. grandpasharksuch-a-narcissistからリブログしました
  25. carolmarieowsuch-a-narcissistからリブログしました
  26. justdandyandysuch-a-narcissistからリブログしました
  27. turnup-functionsuch-a-narcissistからリブログしました
  28. sweetestdoveinadreamsuch-a-narcissistからリブログしました
  29. kingsupegiftedsmartassからリブログしました
  30. giftedsmartassintothecontinuumからリブログしました
  31. breathe-in-thefutureartdiscoverからリブログしました
  32. infinite-purposerickycon3からリブログしました
To Tumblr, Love Pixel Union