Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

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
> ----------------------------------------------------------------
>
>



  • Prev by Date: Re: Should Pure Functions Require &
  • Next by Date: Re: proof by induction?
  • Previous by thread: Re: Drawing a Washer, Polar Plot Question
  • Next by thread: Re:Drawing a Washer, Polar Plot Question