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