Re: Filled Polar plots
- To: mathgroup at smc.vnet.net
- Subject: [mg85142] Re: Filled Polar plots
- From: "Steve Luttrell" <steve at _removemefirst_luttrell.org.uk>
- Date: Wed, 30 Jan 2008 06:04:46 -0500 (EST)
- References: <fnk3hf$ktg$1@smc.vnet.net>
Use RegionPlot as follows:
Table[RegionPlot[(formula @@ v)[ArcTan[x, y]] >
Sqrt[x^2 + y^2], {x, -4, 4}, {y, -4, 4}], {v,
vals}] // GraphicsColumn
This is the same trick that I recommended in
http://forums.wolfram.com/mathgroup/archive/2007/Dec/msg00637.html.
Stephen Luttrell
West Malvern, UK
"Yaroslav Bulatov" <yaroslavvb at gmail.com> wrote in message
news:fnk3hf$ktg$1 at smc.vnet.net...
> What is the recommended way of creating filled polar plots? (assuming
> it forms a closed non-intersecting curve)
>
> I'm looking to create something like the image on
> http://en.wikipedia.org/wiki/Superformula,
> but PolarPlot doesn't seem to have Filling options
>
> formula[m_, n1_, n2_, n3_] =
> Function[{x}, (Cos[(m x)/4]^n2 + Sin[(m x)/4]^n3)^(-1/n1)];
> vals = {{3, 5, 18, 18}, {2, 1, 4, 8}, {3, 3, 14, 2}, {7, 2, 8, 4}};
> Table[PolarPlot[(formula @@ v)[x], {x, -Pi, Pi}, PlotRange -> All,
> Axes -> None], {v, vals}] // GraphicsColumn
>