Re: How to show PolarPlot with circles coordinate
- To: mathgroup at smc.vnet.net
- Subject: [mg90114] Re: How to show PolarPlot with circles coordinate
- From: "David Park" <djmpark at comcast.net>
- Date: Sun, 29 Jun 2008 05:36:33 -0400 (EDT)
- References: <g42erp$nor$1@smc.vnet.net> <g451sl$ppf$1@smc.vnet.net>
I've learned that the Degree symbol somehow gets mangled when posting to
MathGroup, although it looks like a Degree sign when first posted, and
although I'm copying the Mathematica statements in InputForm. So here are
the previous statements again using an explicit 'Degree'.
Needs["Presentations`Master`"]
f[\[Theta]_] :=
5 + 2 Sin[\[Theta]] + Sin[2 \[Theta] + \[Pi]] +
Sin[5 \[Theta] + \[Pi]/4]
Draw2D[
{DrawPolarGrid[{ComplexPolar[0, 0], ComplexPolar[10, 360 Degree],
ComplexPolar[5, 45 Degree], {5, 5}}],
Red,
PolarDraw[f[\[Theta]], {\[Theta], 0, 2 \[Pi]}]},
PlotRangePadding -> 1,
PlotLabel -> f[\[Theta]],
ImageSize -> 300]
Here is 45 'degree symbol clicked from the BasicMath palette', copied in
InputForm and pasted in the message.
45 =B0
It looks ok when I paste it but I think it will get changed to '45 =B0'= by
the time it appears.
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
"David Park" <djmpark at comcast.net> wrote in message
news:g451sl$ppf$1 at smc.vnet.net...
> The Presentations package has a DrawPolarGrid command. The user can
> control
> the angular and radial ranges, subdivisions and labeling. The following
> draws a polar curve on top of a polar grid. ComplexPolar[r,theta] is a
> Presentations expression for representing complex numbers in polar form
> and
> is usesful for making many plots.
>
> Needs["Presentations`Master`"]
>
> f[\[Theta]_] :=
> 5 + 2 Sin[\[Theta]] + Sin[2 \[Theta] + \[Pi]] +
> Sin[5 \[Theta] + \[Pi]/4]
>
> Draw2D[
> {DrawPolarGrid[{ComplexPolar[0, 0 =B0], ComplexPolar[10, 360 =B0],
> ComplexPolar[5, 45 =B0], {5, 5}}],
> Red,
> PolarDraw[f[\[Theta]], {\[Theta], 0, 2 \[Pi]}]},
> PlotRangePadding -> 1,
> PlotLabel -> f[\[Theta]],
> ImageSize -> 300]
>
> This particular polar grid goes from 0 < r < 10 and 0 Degree < theta <
> 360
> Degree with labeled positions spaced by delta r = 5 and delta theta ==
= 45
> Degree. There are 5 subdivisions in both the r and theta directions. The
> labeled coordinates are drawn with black lines and the subdivisions are
> drawn with very faint gray lines.
>
> --
> David Park
> djmpark at comcast.net
> http://home.comcast.net/~djmpark/
>
>
> "Galaxia" <forgalaxia at gmail.com> wrote in message
> news:g42erp$nor$1 at smc.vnet.net...
>> 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.
>>
>
>