(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}]
PRINT THIS POST Notes: 20 1/8/12 — 7:08pm Filed under: #GIF  #Mathematica  #density plot 
 
  1. amy-yes reblogged this from intothecontinuum
  2. psychedelic-view reblogged this from intothecontinuum
  3. intothecontinuum posted this