November 2011
37 posts
8 tags
Nov 1st
38 notes
October 2011
33 posts
4 tags
Oct 29th
79 notes
3 tags
Oct 29th
11 notes
3 tags
Oct 29th
66 notes
3 tags
Oct 26th
42 notes
5 tags
Oct 25th
97 notes
5 tags
Oct 24th
213 notes
4 tags
Oct 24th
12 notes
3 tags
Oct 24th
81 notes
3 tags
Oct 23rd
124 notes
3 tags
Oct 22nd
95 notes
3 tags
Oct 21st
27 notes
3 tags
Oct 21st
13 notes
5 tags
Oct 21st
205 notes
2 tags
Oct 21st
85 notes
4 tags
Oct 19th
41 notes
3 tags
Oct 18th
276 notes
3 tags
Oct 17th
41 notes
3 tags
Oct 16th
7 notes
3 tags
Oct 16th
235 notes
6 tags
Oct 16th
42 notes
5 tags
Oct 15th
35 notes
6 tags
Oct 15th
74 notes
4 tags
Oct 12th
14 notes
4 tags
Oct 11th
92 notes
3 tags
Oct 9th
18 notes
5 tags
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}]
Oct 9th
13 notes
5 tags
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]}, {.175 Cos[s], .175 Sin[s]}}, {t, 2. Pi/150, 2. Pi, 2. Pi/150}]]}}, PlotRange -> 1], {s, 0, 2. Pi, 2. Pi/20}]
Oct 8th
6 notes
5 tags
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}]
Oct 7th
24 notes
3 tags
Oct 6th
156 notes
4 tags
Oct 6th
21 notes
3 tags
Oct 4th
38 notes
3 tags
Oct 4th
57 notes