Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: how fill PolarPlot?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg84442] Re: how fill PolarPlot?
  • From: "David Park" <djmpark at comcast.net>
  • Date: Mon, 24 Dec 2007 04:49:33 -0500 (EST)
  • References: <fkla2t$3sh$1@smc.vnet.net>

Here is a solution using the Presentations package. We draw the filled right 
leaf in the theta-r plane and then we transform it to the x-y plane using 
DrawingTransform and combine it with the outline of the other three leafs.

Needs["Presentations`Master`"]

Module[
 {rightleaf =
   Draw[Cos[2 theta], {theta, -Pi/4, Pi/4}, Filling -> Axis,
    FillingStyle -> Orange]},
 Draw2D[
  {rightleaf /. DrawingTransform[#2 Cos[#1] &, #2 Sin[#1] &],
   PolarDraw[Cos[2 theta], {theta, Pi/4, 7 Pi/4}]},
  Frame -> True,
  ImageSize -> 300]
 ]


-- 
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/


"Murray Eisenberg" <murray at math.umass.edu> wrote in message 
news:fkla2t$3sh$1 at smc.vnet.net...
>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
> 



  • Prev by Date: Re: how fill PolarPlot?
  • Next by Date: Avoid slow initialization of DynamicModule
  • Previous by thread: Re: how fill PolarPlot?
  • Next by thread: Re: Re: how fill PolarPlot?