MathGroup Archive 2008

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

Search the Archive

Re: Filled Polar plots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85135] Re: Filled Polar plots
  • From: dh <dh at metrohm.ch>
  • Date: Wed, 30 Jan 2008 06:01:09 -0500 (EST)
  • References: <fnk3hf$ktg$1@smc.vnet.net>


Hi Yaroslav,

a possible solution is to extract the list of points from the PolarPlot 

and then draw these points using ListLinePlot with Filling. E.g:

g=Table[PolarPlot[(formula@@v)[x],{x,-Pi,Pi},PlotRange->All,Axes->None],{v,vals}]

ListLinePlot[#[[1,1,3,2,1]],Filling->Axis]&/@g

hope this helps, Daniel





Yaroslav Bulatov wrote:

> 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

> 




  • Prev by Date: Re: Filled Polar plots
  • Next by Date: Re: 2D Motion..pleaeeee heeeelp
  • Previous by thread: Re: Filled Polar plots
  • Next by thread: Re: Filled Polar plots