Re: Filled Polar plots
- To: mathgroup at smc.vnet.net
- Subject: [mg85160] Re: [mg85089] Filled Polar plots
- From: Syd Geraghty <sydgeraghty at mac.com>
- Date: Wed, 30 Jan 2008 06:14:02 -0500 (EST)
Yaroslav,
Stephen Wolfram (and others) give examples of filled Polar Plots in
the Demonstrations Project using Directive & Line -> Polygon:
Try:-
superformula[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[(superformula @@ v)[x], {x, -Pi, Pi}, PlotRange -> All,
Axes -> None,
PlotStyle -> Directive[{Lighter[Green, .6], EdgeForm[Gray]}]] /.
Line -> Polygon,
{v, vals}] // GraphicsColumn
I am sure the use of Line -> Polygon is explained in detail somewhere
in the documentation but I could not find it after a few minutes trying.
Thanks for drawing my attention to the Superformula. Hope that does
what you want.
Syd Geraghty B.Sc, M.Sc.
sydgeraghty at mac.com
My System
Mathematica 6.0.1 for Mac OS X x86 (64 - bit) (June 19, 2007)
MacOS X V 10.5 .10
MacBook Pro 2.33 Ghz Intel Core 2 Duo 2GB RAM