RE: RE:Need Help: Can not use Ticks under PolarPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg71409] RE: [mg71397] RE:Need Help: Can not use Ticks under PolarPlot
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 17 Nov 2006 04:30:35 -0500 (EST)
You don't see any x ticks because the x plot range is only -0.5 to 1.0 and
your nonzero ticks are entirely outside that range.
This is a good example where it would be better not to use a legend. The
legend only detracts the viewer's attention away from the information in the
curves. It is much easier to just label the curves directly, and also easier
on the viewer.
For those who have DrawGraphics, here is my rendering of the plot. I use a
Frame plot instead of an Axes plot to keep the tick labels away from the
curves. I do draw the axes but in light gray and I put the axes behind the
curves so that they don't interfere with the curves. I use fewer tick marks.
More just unnecessarily clutter the plot. The two curves are labeled
directly so that the eye is not drawn away from the main plot.
Needs["DrawGraphics`DrawingMaster`"]
xyticks = CustomTicks[Identity, {-0.5, 1, 0.5, 5}];
toprightticks =
CustomTicks[Identity, {-0.5, 1, 0.5, 5}, CTNumberFunction -> ("" &)];
Draw2D[
{Hue[0.6], DrawPolarR[Sin[x], {x, -Pi/2, Pi/2}],
Hue[0.8], DrawPolarR[Cos[x], {x, -Pi/2, Pi/2}],
Black,
Text["Sin", {0.301989, 0.979283}, {-1, 0}],
Text["Cos", {0.832366, 0.448907}, {-1, 0}]},
AspectRatio -> Automatic,
Frame -> True,
FrameTicks -> {xyticks, xyticks, toprightticks, toprightticks},
Axes -> True, AxesStyle -> LightGray, AxesFront -> False,
PlotRange -> {{-0.6, 1.1}, {-0.6, 1.1}}];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: abdou.oumaima at hotmail.com [mailto:abdou.oumaima at hotmail.com]
First of All, I want to thank Mr Jean Marc Guillet and Mr Bob Hanlon for
their help in my last post.
Now I need to perfom my graphic presentation by using Ticks under PolarPlot
as follow:
Needs["Graphics`"];
ShowLegend[DisplayTogether[PolarPlot[Sin[x], {x, -Pi/2, Pi/2}, PlotStyle ->
Hue[0.6]], PolarPlot[Cos[x], {x, Pi/2, 3 Pi/2}, PlotStyle ->
Hue[0.8]],
Ticks -> {{-Pi/2, 0, Pi/2, Pi, 3 Pi/2}, Automatic},
DisplayFunction -> Identity], {{{ Hue[0.6], "Sin(x)"}, {Hue[0.8],
"Cos(x)"}}, LegendPosition -> {1.1, .2}, LegendSize -> {.8, .4}}];
I need seeing in x Axe -Pi/2, 0, Pi/2, Pi, 3P/2. Please how can I achieve
this?!
Any suggestions will be very welcommmmmmmmmmmm.
Cheers.