a perspective on mathematics, the pattern, and the abstract
click through to animate in high-res: 500x500
(view original color function here)
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}]
-
welcometomyend reblogged this from raccoonboy
-
raccoonboy reblogged this from intothecontinuum
-
neonpi liked this
-
mathquest liked this
-
lynchianbedhead liked this
-
sandersonr11 liked this
-
mrgif liked this
-
ouroboros-iris liked this
-
amy-yes reblogged this from intothecontinuum
-
amy-yes liked this
-
jenlersadnie liked this
-
jenlersadnie reblogged this from intothecontinuum
-
newbornnebulae liked this
-
intoincrements reblogged this from intothecontinuum
-
intothecontinuum posted this
