Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

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.
>>
>
>



  • Prev by Date: Re: One thing in two ways, with different result.
  • Next by Date: Re: Re: Export PDF plot or Save Selection As -- big troubles with Illustrator
  • Previous by thread: Re: How to show PolarPlot with circles coordinate
  • Next by thread: Re: Interpolation and plot doing strange things with mathematica