RE: Drawing a Washer, Polar Plot Question
- To: mathgroup at smc.vnet.net
- Subject: [mg29734] RE: [mg29728] Drawing a Washer, Polar Plot Question
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 5 Jul 2001 06:08:00 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Bob,
If you have Version 4.1 you can do it this way.
Needs["Graphics`Graphics`"]
Needs["Graphics`InequalityGraphics`"]
p1 = PolarPlot[4 Cos[t] - 2, {t, 0, 2Pi}];
p2 = InequalityPlot[1 < x^2 + y^2 < 4, {x, -2, 2},
{y, -2, 2}, Fills -> GrayLevel[0.8]];
Show[p1, p2, Frame -> True, AxesFront -> True];
If you don't have Version 4.1 you could do it using my DrawingPaper packages
this way.
Needs["Graphics`DrawingPaper`"]
Needs["Graphics`FilledDrawing`"]
Show[Graphics[
{DrawPolarR[4*Cos[t] - 2, {t, 0, 2*Pi}],
FilledDraw[{1, 2}, {t, 0, 2*Pi},
Fills -> {GrayLevel[0.7]}] /. DrawingTransform[
#2*Cos[#1] & , #2*Sin[#1] & ]}],
AspectRatio -> Automatic, PlotRange -> Automatic,
Background -> Linen, {Frame -> True}];
I drew a filled band in the theta-r plane and then used DrawingTransform to
bend it into a washer in the x-y plane.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Robert B. Love [mailto:rlove at antispam.neosoft.com]
To: mathgroup at smc.vnet.net
>
>
> I have a polar plot of my data that lookes the way I want. Now
> I want to add a grey "washer" shaped exclusion zone on top of
> the plot. I see there is a nice Disk two dimensional graphics
> object that is almost what I want. It draws a filled in circle
> centered on {x,y} of radius r. What I want is some thing that
> draws a filled in circle between r1 and r2, centered on {x,y}.
> Is there some way I can do this easily? I've tried combining two
> Disks of different colors and sizes but no luck.
>
> All advice is appreciated.
>
>
> --
> ----------------------------------------------------------------
> Bob Love
> rlove at neosoft.com
> ----------------------------------------------------------------
>
>