High-res: 800x800
Mathematica code:
  DensityPlot[    Sin[215*Abs[(x + I y)^-1]],     {x, -2.5, 2.5}, {y, -2.5, 2.5},   PlotPoints -> 36, Mesh -> False, Frame -> False, ColorFunction -> Hue]

High-res: 800x800

Mathematica code:

  DensityPlot[
Sin[215*Abs[(x + I y)^-1]],
{x, -2.5, 2.5}, {y, -2.5, 2.5},
PlotPoints -> 36, Mesh -> False, Frame -> False, ColorFunction -> Hue]
 
  1. diagiraldo reblogged this from intothecontinuum
  2. thuglifegetsold reblogged this from intothecontinuum
  3. sahajp98 reblogged this from intothecontinuum
  4. mr-pharmacist reblogged this from intothecontinuum
  5. blunts-and-ink reblogged this from psychedelic-view
  6. psychedelic-view reblogged this from intothecontinuum
  7. intothecontinuum posted this