theplenitude:

Torus Knot

()    3

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}]
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}]