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}]
PRINT THIS POST Notes: 18 1/4/12 — 6:13pm Filed under: #GIF  #Mathematica  #density plot  #large file size 
 
  1. neuro-sjane reblogged this from intothecontinuum
  2. orientalkangarookisser reblogged this from intothecontinuum
  3. ilconti reblogged this from intothecontinuum
  4. shiku22 reblogged this from intothecontinuum
  5. amy-yes reblogged this from intothecontinuum
  6. intothecontinuum posted this