February 2012
22 posts
3 tags
Feb 1st
243 notes
January 2012
40 posts
4 tags
WatchWatch
Music generated with Otomata! Continuous variation in the parameter “a” starting at a = 0 Unknown code parameters : r, a(final), s Visuals created with Mathematica code: Manipulate[ Graphics[ Line[ Table[ {-r^n*Sin[n*a], r^n*Cos[n*a]}, {n, 0, s}]], PlotRange -> .01], {r, .1, 1}, {a, 0.001, 4*Pi, .00001}, {s, 1, 10000, 1]
Jan 31st
78 notes
4 tags
WatchWatch
Music: “The Star Compass” by Tim Hecker Created with Mathematica code: Manipulate[ Graphics[ Line[ Table[ {-Sin[n*a], Cos[n/a]}, {n, 0, 800}]], PlotRange -> 1.3], {a, 11.396, 11.621, .0001}]
Jan 30th
27 notes
4 tags
WatchWatch
Music: “The New Anthem” by Jan Jelinek & Computer Soup Created with Mathematica code: Manipulate[ Graphics[ Line[ Table[ {-.999^n*Sin[n*a], .999^n*Cos[n/a]}, {n, 0, 200}]], PlotRange -> 1.3], {a, 3, 3.78, .0001}]
Jan 25th
63 notes
3 tags
Jan 25th
154 notes
3 tags
Jan 24th
36 notes
4 tags
Jan 22nd
967 notes
3 tags
Jan 17th
1,867 notes
1 tag
Anonymous asked: Love your blog!! Can you share with us your other favorite tumblrs?
Jan 14th
35 notes
5 tags
Jan 14th
690 notes
7 tags
Jan 13th
744 notes
5 tags
Jan 13th
77 notes
4 tags
Jan 12th
71 notes
3 tags
(500x500) Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^1.1]], {x, -1.25, 1.25}, {y, 0, 2.5}, PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue], {r, 88.5, 68.5, .5}]
Jan 12th
24 notes
2 tags
Jan 11th
32 notes
2 tags
Jan 11th
17 notes
4 tags
Jan 9th
233 notes
3 tags
(view high-res still at r=1234.3 here) Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^2]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 50, Mesh -> False, Frame -> False, ColorFunction -> Hue], {r,1234.7, 1235.7, .1}]
Jan 9th
20 notes
2 tags
Jan 9th
16 notes
2 tags
Jan 9th
45 notes
4 tags
The “I” is the root of one’s negativity. It is imaginary. In math, the imaginary unit is defined as the square root of negative one: \[ i = \sqrt{-1} \] For some motivation, consider what values for x satisfy the following equation \[  x^2  = 1 \] Both +1 and -1 work. Instead, try to think of values for x that satisfy this equation \[  x^2  = -1 \] No real number does!...
Jan 9th
85 notes
5 tags
Jan 8th
27 notes
3 tags
Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 15, Mesh -> False, Frame -> False, ColorFunction -> Hue], {r, 1982.2, 1983.1, .1}]
Jan 8th
15 notes
4 tags
Jan 7th
18 notes
4 tags
Jan 7th
22 notes
3 tags
Jan 7th
12 notes
2 tags
Jan 7th
8 notes
2 tags
Jan 7th
6 notes
3 tags
Jan 6th
13 notes
4 tags
Mathematica code: Animate[ DensityPlot[ Sin[r*Cos[.4]*Abs[(x + I y)^2]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue], {r, 113.4, 114, .02}]
Jan 5th
18 notes
2 tags
Jan 5th
7 notes
2 tags
Jan 4th
10 notes
2 tags
Jan 4th
12 notes
2 tags
Jan 4th
15 notes
3 tags
Jan 4th
207 notes
2 tags
Jan 3rd
13 notes
2 tags
Jan 3rd
13 notes
2 tags
Jan 3rd
8 notes
4 tags
Jan 2nd
198 notes
4 tags
Jan 2nd
30 notes