Re: Filled Polar plots
- To: mathgroup at smc.vnet.net
- Subject: [mg85129] Re: Filled Polar plots
- From: Camille JORDAN <ynceraj at gmail.com>
- Date: Wed, 30 Jan 2008 05:58:04 -0500 (EST)
- References: <fnk3hf$ktg$1@smc.vnet.net>
This will do
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,
PlotStyle -> Directive[{Lighter[Green, .6], EdgeForm[Gray]}],
ImageSize -> {100, 100}] /. Line -> Polygon, {v,
vals}] // GraphicsColumn
Notice the trick is on /. Line -> Polygon
you can change the ImageSize to a size you like
Regards