by Duarte

intothecontinuum:

A 2-coloring of what results from playing connect-the-dots with the complex numbers zn, for 0 < n < 140,  as z varies from ei2.9531 to ei2.96104.

Mathematica code:

ListAnimate[
Table[
Graphics[
GraphicsComplex[
Table[
{-1^n*Sin[n*a], 1^n*Cos[n*a]},
{n, 0, 139}],
Polygon[Table[i, {i, 1, 139, 1}]]],
PlotRange -> .55, ImageSize -> 500],
{a, 2.9531, 2.96104, .00026}]]
Advertisements