themathkid:

(via bababadalgharag)

I love that the next page shows through.

intothecontinuum:

 

Mathematica code:

ListAnimate[
 Table[Show[
   Table[Graphics[
     GraphicsComplex[
      Table[
       {-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586],
          (.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]},
      {n, 0, 416}],
    {Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}], 
    PlotRange -> .04, ImageSize -> 500],
  {G, {0, 1}}]],
{t, 0, .95, .05}]]

intothecontinuum:

view GIFs in hi-res here (700x700)

Mathematica code:

F[a_, L_, r_, s_, t_] :=
 Table[
  {-(r + s*Cos[t])^n*Sin[n*a], (r + s*Cos[t])^n*Cos[n*a]}, {n, 0, L}]

V := 
 {{1.45631, 556, .995, .003}, {2.94712, 502, .998, .001}, 
 {4.50891, 485, .9955, .0025}, {4.9367, 630, .997, .002}}

Table[
 ListAnimate[
  Table[
   Graphics[
    Polygon[
     F[Part[Part[V, G], 1], Part[Part[V, G], 2], Part[Part[V, G], 3], Part[Part[V, G], 4], t]], 
   PlotRange -> 1, ImageSize -> 250],
 {t, 0, 2 Pi, 2 Pi/40}]],
{G,1,4,1}

ginocologyst:

it’s all mathematics!!