Top ↑ | Archive | ask me anything :::: sor bana yavrucuğum
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]

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]

(via weissesrauschen)

fiore-rosso:

zander bloom.

(via weissesrauschen)

"Gülşenim, üstüne kimler varıyor?"

Gülşenim, üstüne kimler varıyor?; 2013

mikaye:

You don’t save your soul just painting everything in white // detail

extinguishin g ate istanbul; 2013

your’ in the army now little fifteen the day after bridals; 2013

rejahi

i got rambling, i got rambling on my mind