Re: Automating PolarPlot with Polar Gridlines
- To: mathgroup at smc.vnet.net
- Subject: [mg66428] Re: Automating PolarPlot with Polar Gridlines
- From: ggroup at sarj.ca
- Date: Fri, 12 May 2006 02:03:08 -0400 (EDT)
- References: <1147378541.639619.126230@j33g2000cwa.googlegroups.com>
- Sender: owner-wri-mathgroup at wolfram.com
I meant to paste in an example of a manual polar plot, which has most of what
I want except for the gridline labels:
Needs["Graphics`"];
DisplayTogether[
PolarPlot[6 Sin[x + Pi/2]^2 - 2x, {x, -Pi/2, Pi/2}, PlotStyle -> {Red}],
PolarMap[Identity, {0, 7}, {-Pi/2, Pi/2}, PlotStyle -> {GrayLevel[0.5]}],
PlotRange -> {{0, 6.25}, {-3.50, 2.00}}, AspectRatio -> Automatic]
On Thu, 11 May 2006 13:15:41 -0700, ggroup at sarj.ca wrote
> Hi,
>
> I was wondering if anyone had a good scheme to produce polar plots with
> polar gridlines. Right now, I can add the gridlines using PolarMap in
> the Graphics`Graphics package. However, these gridlines are not
> labelled and choosing the range of the gridlines has to be entered
> manually.
>
> I know it is possible, though not quite trivial, to calculate the
> PlotRange, polar grid lines and tick marks in my own plotting function,
> but I was wondering if there is is a standard package or function that
> I can use instead.
>
> Thanks!