![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,...](https://66.media.tumblr.com/tumblr_m57zrlLlVx1qfjvexo1_500.gif)
Home honey I'm hi
mileysyrups liked this
matt-benkert reblogged this from thebonesofhoudini
thebonesofhoudini reblogged this from weissesrauschen
itsyourboy-rose reblogged this from killer-thriller
ozizo liked this
m00ndingochan reblogged this from thisisgatz
girl-xy reblogged this from ultrazapping
majestic-minds reblogged this from syntaxofme
feherbeaa reblogged this from syntaxofme
areyouafraiddontbe liked this
borrba reblogged this from jaaywood
jaaywood reblogged this from syntaxofme
trololololololololooo reblogged this from syntaxofme
ppetrov reblogged this from syntaxofme
sharvanni liked this
syntaxofme reblogged this from naprasno
doctortangalanga liked this rodolfou reblogged this from dreamer-s-disease
topo-graphies reblogged this from shinyslingback-blog
im-insidemymind reblogged this from baara
revolvver liked this
ashonyoureyelash reblogged this from doseage
newingss reblogged this from ultrazapping
impersonallypersonal reblogged this from howinternet
iamchristianw liked this
blasphmeme reblogged this from baara
batukaz liked this
erickxpechtel liked this
starlasucks reblogged this from ultrazapping
ellapocalypse reblogged this from roomsthememory
watchandseeamazingthings reblogged this from ultrazapping
blackridinghoodg liked this
i-mbalance reblogged this from bukakko
coollama1 reblogged this from bukakko
mrsschnullers liked this
abittersweetmemoryinautumn reblogged this from bukakko
everything-black liked this
martasg42 liked this
cookies-chan liked this
intothecontinuum posted this
- Show more notes