A Chain

747 ♥

3 ♥

8 ♥

1715 ♥

() 3

0 ♥

Convex Music

0 ♥

$intothecontinuum: Mathematica code: G[X_, Y_, Z_, S_, p_, q_, r_, a_, b_, c_, N_, e_, t_, PR_, IS_] :=Graphics[ Table[ Disk[ {X*Cos[a (e*t + n)*2 Pi/N + p], Y*Cos[b (e*t + n)*2 Pi/N + q]}, Z*Cos[c (e*t + n)*2 Pi/N + r*t*2 Pi] + S], {n, 1, N}],PlotRange -> PR, ImageSize -> IS]Manipulate[ G[.75, 1, .02, .03, 0, Pi/2, .04, 3, 1, 4, 100, .08, t, {{-.857, .857}, {-1.2, 1.2}}, 500],{t, 1, 25, 1}]$

1375 ♥

$intothecontinuum: r = 1 2.005 ≤ a ≤ 2.00502 401 ≥ s ≥ 399 PDF Mathematica code: Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]$

26 ♥

243 ♥

Fan Mixtapes

0 ♥