January 2012
40 posts
4 tags
Jan 1st
20 notes
4 tags
Jan 1st
23 notes
4 tags
I would rather not have this site be a place where I post too much about my “personal” life as I am currently in the process of dissolving my ego, but I feel strongly enough about this to want to share with everyone. I recently returned from a very intimate time receiving the biggest hug from the universe (sometimes a little too tight!) in which I meditated some 80+ hours in silence...
Jan 1st
29 notes
December 2011
28 posts
2 tags
Mathematica code: Animate[ Graphics[ Table[ Circle[{20*Cos[i*Pi/25], 20*Sin[i*Pi/25]}, t + (50 - n) (1 + Sign[50 - n])/2], {n, 0, 50, 1}, {i, 0, 24, 1}], PlotRange -> 6, ImageSize -> 780], {t,0,1,.1}]
Dec 29th
45 notes
3 tags
Dec 28th
663 notes
3 tags
Dec 28th
23 notes
3 tags
Dec 27th
1,337 notes
2 tags
Dec 26th
1,093 notes
2 tags
Mathematica code: Animate[ Graphics[ Table[ {Thickness[.006], Circle[{20*Cos[i*Pi/6], 20*Sin[i*Pi/6]},   t + (32 - n) (1 + Sign[32 - n])/2]}, {n, 0, 50, 1}, {i, 0, 11, 1}], PlotRange -> 17, ImageSize -> 750], {t, 0, 1}]
Dec 25th
200 notes
4 tags
Dec 24th
116 notes
4 tags
Dec 23rd
14 notes
4 tags
Dec 22nd
163 notes
3 tags
Dec 21st
137 notes
4 tags
Dec 20th
588 notes
1 tag
This is now on queue until the end of the year. Some miscellaneous Mathematica output from mostly old code will be posted. So no new code, and no responses to messages until the new year. Stay tuned and be happy!
Dec 19th
8 notes
3 tags
Anonymous asked: Could you make an animation demonstrating the complex analysis used in the proof of the fundamental theorem of algebra? Thanks!
Dec 19th
5 notes
2 tags
High-Res (750x750) Mathematica code: Animate[ Graphics[ Table[ Circle[{10*Cos[i*Pi/10], 10*Sin[i*Pi/10]}, t + (20 - n) (1 + Sign[20 - n])/2], {n, 0, 100, 1}, {i, 0, 19, 1}], PlotRange -> 15, ImageSize -> 750], {t, 0, 1, .1}]
Dec 16th
39 notes
1 tag
Dec 15th
86 notes
1 tag
Anonymous asked: so how old are you if you don't mind my asking
Dec 15th
10 notes
2 tags
High-Res (750x750) Mathematica code: Animate[ Graphics[ Rotate[ Table[ Circle[{100*Cos[i*Pi/12], 100*Sin[i*Pi/12]},   t+(100 - n) (1 + Sign[100 - n])/2], {n, 0, 100, 1}, {i, 0, 23, 1}], t*Pi/12], PlotRange -> 20, ImageSize ->750], {t, 0, 1}]
Dec 12th
84 notes
2 tags
High-Res (750x750) Mathematica code: Animate[ Graphics[ Table[ Circle[{100*Cos[i*Pi/12], 100*Sin[i*Pi/12]},   t+(100 - n) (1 + Sign[100 - n])/2], {n, 0, 100, 1}, {i, 0, 23, 1}], PlotRange -> 20, ImageSize ->750], {t, 0, 1}]
Dec 10th
239 notes
Anonymous asked: can we use any of the patterns as backgrounds?
Dec 10th
4 notes
1 tag
Dec 10th
46 notes
2 tags
Dec 6th
1,640 notes
2 tags
Dec 5th
115 notes
5 tags
Dec 3rd
867 notes
3 tags
Dec 3rd
98 notes
3 tags
Dec 3rd
65 notes