MathGroup Archive 2006

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

Search the Archive

RE: Beginner--[Plz Help] I don't want to display a POLARPLOT but use SHOW Command


You have to set and reset DisplayFunction.

<< Graphics`Graphics`;

pp = PolarPlot[Cos[t], {t, -(Pi/2), Pi/2}, PlotStyle -> Hue[0.4],
    DisplayFunction -> Identity];
pm = PolarPlot[Sin[t], {t, -(Pi/2), Pi/2}, PlotStyle -> Hue[0.6],
    PlotLabel -> {" &#968;- "}, PlotRange -> All,
    DisplayFunction -> Identity];
Show[pp, pm, DisplayFunction -> $DisplayFunction];

But notice that you lost the PlotLabel because overall plot options are only
picked up from the first plot.

I did the same plot in DrawGraphics but decided to use a Frame, a background
color, and put Axes in but very light and behind the two circles. Here
everything can be done in one plot statement and you don't have to bother
with DisplayFunction or worry over which options will be picked up.

Needs["DrawGraphics`DrawingMaster`"]

Draw2D[
    {Hue[0.4],
      DrawPolarR[Cos[t], {t, -Pi/2, Pi/2}],
      Hue[0.6],
      DrawPolarR[Sin[t], {t, -Pi/2, Pi/2}]},
    AspectRatio -> Automatic,
    Frame -> True,
    Axes -> True,
    AxesFront -> False,
    AxesStyle -> Gainsboro,
    PlotLabel -> "No need to cuss or fuss",
    Background -> Linen,
    ImageSize -> 400];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/



  • Prev by Date: Re: Re: IntervalComplement
  • Next by Date: Re: IntervalComplement
  • Previous by thread: Re: Beginner--[Plz Help] I don't want to display a POLARPLOT but use SHOW Command
  • Next by thread: Re: Beginner--[Plz Help] I don't want to display a POLARPLOT but use SHOW Command