Re: Re: how fill PolarPlot?

*To*: mathgroup at smc.vnet.net*Subject*: [mg84449] Re: [mg84444] Re: [mg84420] how fill PolarPlot?*From*: Andrzej Kozlowski <akoz at mimuw.edu.pl>*Date*: Tue, 25 Dec 2007 06:24:49 -0500 (EST)*References*: <200712230934.EAA03990@smc.vnet.net> <67371FD7-F63D-4CB0-9D5C-7017815C5BD7@mimuw.edu.pl> <200712240950.EAA06431@smc.vnet.net>

Well, I misunderstood you, but it is trivial to fix this: s = PolarPlot[Cos[2 theta], {theta, 0, 2 Pi}]; s1 = PolarPlot[Cos[2 theta], {theta, -Pi/4, Pi/4}] /. Line -> Polygon; Show[s, s1] Andrzej Kozlowski On 24 Dec 2007, at 18:50, Murray Eisenberg wrote: > That does not show the entire four-leaved rose together with a shaded > leaf in the right half-plane. > > What I'm seeing is a shaded leaf in the right half-plane along with > shaded pieces of the top and bottom leaves that stick into the right > half-plane and are within the top and bottom boundaries of the > right-hand leaf. > > Andrzej Kozlowski wrote: >> >> On 23 Dec 2007, at 18:34, Murray Eisenberg wrote: >> >>> I Mathematica 6 I have a PolarPlot, e.g., a 4-leaved rose: >>> >>> PolarPlot[Cos[2 theta], {theta, 0, 2 Pi}] >>> >>> How can I fill the inside -- or, what I really want, just the leaf >>> in >>> the right half-plane -- with some color? >>> >>> I note that Filling does not seem to be an option for PolarPlot >>> (or for >>> what would be almost as good, ParametricPlot). >>> >>> I tried including the following (obtained by converting from : >>> >>> Prolog->RegionPlot[(x^2 + y^2)^(3/2) <= x^2-y^2, {x,-0.02,1}, >>> {y,-1,1}, >>> Frame->False, AspectRatio->Automatic] >>> >>> However, that led to a mysterious error message: >>> >>> $Aborted is not a Graphics primitive or directive. >>> >>> (Perhaps because of an incompatibility of a Prolog with cartesian >>> coordinates inside a polar coordinate plot??) >>> >>> -- >>> Murray Eisenberg murray at math.umass.edu >>> Mathematics & Statistics Dept. >>> Lederle Graduate Research Tower phone 413 549-1020 (H) >>> University of Massachusetts 413 545-2859 (W) >>> 710 North Pleasant Street fax 413 545-1801 >>> Amherst, MA 01003-9305 >>> >> >> >> How about simply: >> >> >> s1 = PolarPlot[Cos[2 theta], {theta, -Pi/4, Pi/4}] /. Line -> >> Polygon; >> s2 = PolarPlot[Cos[2 theta], {theta, Pi/2, Pi/2 + Pi/4}] /. Line -> >> Polygon; >> s3 = PolarPlot[Cos[2 theta], {theta, 3 Pi/2 - Pi/4, 3 Pi/2}] /.Line >> -> >> Polygon; >> >> Show[ss, s1, s2, s3] >> >> >> Andrzej Kozlowski >> > > -- > Murray Eisenberg murray at math.umass.edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower phone 413 549-1020 (H) > University of Massachusetts 413 545-2859 (W) > 710 North Pleasant Street fax 413 545-1801 > Amherst, MA 01003-9305 >

**References**:**how fill PolarPlot?***From:*Murray Eisenberg <murray@math.umass.edu>

**Re: how fill PolarPlot?***From:*Murray Eisenberg <murray@math.umass.edu>