MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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





  • Prev by Date: Re: Filled Polar plots
  • Next by Date: Re: DataRange in ListPlot
  • Previous by thread: Re: Filled Polar plots
  • Next by thread: Re: Filled Polar plots