(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}]
PRINT THIS POST Notes: 24 1/11/12 — 5:16pm Filed under: #GIF  #Mathematica  #density plot 
 
  1. ffffffffffffffffffffffffffffff reblogged this from intothecontinuum
  2. lynchianbedhead reblogged this from intothecontinuum
  3. intothecontinuum posted this