w/ color:Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^-1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 35, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r, 240, 200, 1}]

w/ color:



Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^-1]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 35, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r, 240, 200, 1}]
Notes: 21 2/5/12 — 6:01pm Filed under: #GIF  #Mathematica  #density plot  #PS 
 
  1. sportsmemorabiliablog reblogged this from intothecontinuum
  2. grindsports reblogged this from intothecontinuum
  3. thuglifegetsold reblogged this from intothecontinuum
  4. sahajp98 reblogged this from intothecontinuum
  5. orientalkangarookisser reblogged this from intothecontinuum
  6. smoresandstructurefires reblogged this from swingonaspiral
  7. swingonaspiral reblogged this from intothecontinuum
  8. intothecontinuum posted this