Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• To: mathgroup at smc.vnet.net
• Subject: [mg70363] RE: [mg70331] Beginner--[Plz Help] I don't want to display a POLARPLOT but use SHOW Command
• From: "David Park" <djmp at earthlink.net>
• Date: Sat, 14 Oct 2006 03:07:10 -0400 (EDT)

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/