November 17, 2011

A Moiré pattern formed with 5 sets of concentric circles.

Code for Mathematica:

Manipulate[
 Graphics[
  {Thickness[.005],
   {Table[Circle[{0, 0}, r], {r, 0, 1, .05}],
     Table[Circle[{2 t, 0}, r], {r, 0, 1, .05}], 
     Table[Circle[{-2 t, 0}, r], {r, 0, 1, .05}], 
     Table[Circle[{0, 2 t}, r], {r, 0, 1, .05}], 
     Table[Circle[{0, -2 t}, r], {r, 0, 1, .05}]}}], 
 {t, 0, 1, .05}]

October 9, 2011

intothecontinuum:

A Moiré pattern formed with 2 sets of rays.

Code for Mathematica:

Manipulate[
 Graphics[
  {Thickness[.005],
   {Blue, {Line[
      Table[{{Cos[t], Sin[t]}, {0, 0}}, {t, 2. Pi/150, 2. Pi, 2. Pi/150}]]}},
   {Line[Table[{{Cos[t], Sin[t]}, {0, s}}, {t, 2. Pi/150, 2. Pi, 2. Pi/150}]]}}, 
  PlotRange -> 1],
 {s, .5, -.5, .1}]