Re: How to show PolarPlot with circles coordinate
- To: mathgroup at smc.vnet.net
- Subject: [mg90090] Re: How to show PolarPlot with circles coordinate
- From: Peter Breitfeld <phbrf at t-online.de>
- Date: Sat, 28 Jun 2008 05:54:09 -0400 (EDT)
- References: <g42erp$nor$1@smc.vnet.net>
Galaxia schrieb:
> The PolarPlot of Mathematica gives still the X-Y axes coordinate. Is
> there any way to plot the figure with coordinate system with rays and
> circle target? Thanks.
>
You may write your own polar grid, e.g.:
PolarGitter[r_, dr_, df_] :=
{Table[ Text[2 Pi n/(2 df),
Through[{Re, Im}[(1.1 r) Exp[2 Pi I n/(2 df)]]]],
{n, 0, 2 df - 1}],
GrayLevel[0.6],
Table[Line[{Through[{Re, Im}[r Exp[n I Pi/df]]],
Through[{Re, Im}[-r Exp[n I Pi/df]]]}], {n, 0, df}],
Table[Circle[{0, 0}, n r/dr], {n, 1, dr}]
}
Then:
PolarPlot[E^(x/20), {x, 0, 35}, Prolog -> {PolarGitter[7, 1, 8]},
PlotRange -> {{-8, 8}, {-9, 9}},
Axes -> None]
Gruss Peter
--
==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de