High-res: 800x800 Mathematica code: f[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]}ImageTransformation[ ImageCrop[ DensityPlot[ Sin[84.74*Abs[(x + I y)^2]], {x, -10, 10}, {y, -10, 10}, PlotPoints -> 35, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 834], 800],f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}]

High-res: 800x800

Mathematica code:

f[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]}

ImageTransformation[
 ImageCrop[
   DensityPlot[
     Sin[84.74*Abs[(x + I y)^2]], 
   {x, -10, 10}, {y, -10, 10}, 
   PlotPoints -> 35, Mesh -> False, Frame -> False, 
   ColorFunction -> Hue, ImageSize -> 834],
 800],
f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}]
High-res Notes: 7 3/25/12 — 5:31pm Filed under: #Mathematica  #density plot  #logpolar coordinates  #form constants 
 
  1. shrimpparty reblogged this from intothecontinuum
  2. intothecontinuum posted this