#21856793542 / 167 notes
(via andren)
#21855410659 / 1222 notes
(via planetaryfolklore)
#21575992883 / 32253 notes
(via annnmoody)
#21490563394 / 259 notes
#21259446380 / 88 notes
(via kenmat)
#20956131406 / 436 notes
#20780504007 / 391 notes
![intothecontinuum:
“ Mathematica code:
T[t_] :=
If[0 < t < 11, 20 + 20 t,
If[10 < t < 17, 30 t - 80,
If[16 < t < 23, 50 t - 400,
If[22 < t < 35, 700, 0]]]]
Op[t_] :=
If[Mod[t, 29] < 23, 1, 1 - .2*(Mod[Mod[t, 29], 22])]
P[t_] :=
If[0 < t < 29,...](https://66.media.tumblr.com/tumblr_m1y6lqwgxB1qfjvexo1_500.gif)
Mathematica code:
T[t_] :=
If[0 < t < 11, 20 + 20 t,
If[10 < t < 17, 30 t - 80,
If[16 < t < 23, 50 t - 400,
If[22 < t < 35, 700, 0]]]]
Op[t_] :=
If[Mod[t, 29] < 23, 1, 1 - .2*(Mod[Mod[t, 29], 22])]
P[t_] :=
If[0 < t < 29, 2.1021,
If[28 < t < 57, 1.5782,
If[56 < t < 85, 1.26674,
If[84 < t < 113, 1.0537,
If[112 < t < 145, .796898, 1]]]]]
ListAnimate[
Table[
Graphics[
{Opacity[Op[t], White],
Line[
Table[
{-.99^n*Sin[n*P[t]], .99^n*Cos[n*P[t]]}, {n, 0, T[Mod[t, 29]]}]]},
PlotRange -> 1/4, ImageSize -> 500, Background -> Black],
{t, 0, 145, 1}]]