Re: how fill PolarPlot?
- To: mathgroup at smc.vnet.net
- Subject: [mg84428] Re: [mg84420] how fill PolarPlot?
- From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
- Date: Mon, 24 Dec 2007 04:42:08 -0500 (EST)
- References: <200712230934.EAA03990@smc.vnet.net>
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
- References:
- how fill PolarPlot?
- From: Murray Eisenberg <murray@math.umass.edu>
- how fill PolarPlot?