Tumblr wont let me upload the colored version so here it is:Thank you psykzz for sharing some of your magic gif tips with me!Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^-1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 23, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r, 140, 116, 1}]

Tumblr wont let me upload the colored version so here it is:



Thank you psykzz for sharing some of your magic gif tips with me!

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^-1]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 23, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r, 140, 116, 1}]
Notes: 23 2/5/12 — 2:11pm Filed under: #GIF  #Mathematica  #density plot  #PS  #psykzz 
 
  1. grindsports reblogged this from intothecontinuum
  2. meguso reblogged this from fernsperm
  3. laika-rememory reblogged this from fernsperm
  4. fernsperm reblogged this from intothecontinuum
  5. isometries reblogged this from intothecontinuum
  6. lynchianbedhead reblogged this from intothecontinuum
  7. karatebuffalo reblogged this from intothecontinuum
  8. conmisbrillosdeneon reblogged this from intothecontinuum
  9. intothecontinuum posted this