Re: Polarplot orientation

• To: mathgroup at smc.vnet.net
• Subject: [mg126826] Re: Polarplot orientation
• From: "djmpark" <djmpark at comcast.net>
• Date: Sun, 10 Jun 2012 02:17:04 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <22124787.29000.1339226218251.JavaMail.root@m06>

```Mateo,

There is probably a way to do this in regular Mathematica. Nevertheless I
did a case using the Presentations Application. I assume that you are
looking for a polar grid with 0 degrees at the top and the angles increasing
clockwise. The following achieves this.

<< Presentations`

First is the "normal" case with the angle measure counterclockwise from the
x axis.

Draw2D[
{{DrawPolarGrid[{ComplexPolar[0.25, -180 \[Degree]],
ComplexPolar[2, 180 \[Degree]],
ComplexPolar[0.25, 45 \[Degree]], {2, 9}},
PGLabelAxis -> 0 \[Degree],
NumberForm[#, {3, 2}] &),
PGAngleNumberFunction -> (Identity[Text[Style[#, 10]]] &),
Red,
PolarDraw[1 + \[Theta]/(2 \[Pi]), {\[Theta], 0, 2 \[Pi]}]}},
AspectRatio -> Automatic,
ImageSize -> 300]

Next is the same curve with the angle measured clockwise from the y axis.

Draw2D[
{{DrawPolarGrid[{ComplexPolar[0.25, 0 \[Degree]],
ComplexPolar[2, 360 \[Degree]],
ComplexPolar[0.25, 45 \[Degree]], {2, 9}},
PGLabelAxis -> 0 \[Degree],
NumberForm[#, {3, 2}] &),
PGAngleNumberFunction -> (Mod[-# + 90 \[Degree], 360 \[Degree]] &),
Red,
PolarDraw[1 + \[Theta]/(2 \[Pi]), {\[Theta], 0, 2 \[Pi]}] //
ReflectionTransformOp[{1, 0}, {0, 0}] //
RotateOp[-90 \[Degree], {0, 0}]}},
AspectRatio -> Automatic,
ImageSize -> 300]

This uses the Presentations routines DrawPolarGrid, ComplexPolar, PolarDraw,
RotateOp and ReflectionTransformOp.

In a few days this should appear on the archive that Peter Lindsay of the
Mathematics department at St. Andrews University kindly keeps for me. It

http://www.st-andrews.ac.uk/~pl10/c/djmpark/

David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/index.html

From: Mat' G. [mailto:ellocomateo at free.fr]

Hi all,

Is it possible to change a polarplot to get 0=B0 vertical "@ 12.00" and to
rotate clockwise?

Best regards,

Mateo

```

• Prev by Date: Re: SmoothHistogram and Legends
• Next by Date: Re: Memory Blowup Issues
• Previous by thread: Re: Polarplot orientation
• Next by thread: Re: Polarplot orientation