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

MathGroup Archive 2012

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

Search the Archive

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],
    PGRadiusNumberFunction -> (RotateOp[90 \[Degree]]@
        NumberForm[#, {3, 2}] &),
    PGAngleNumberFunction -> (Identity[Text[Style[#, 10]]] &),
    PGLabelRadiusFactor -> 1.15],
   Red,
   PolarDraw[1 + \[Theta]/(2 \[Pi]), {\[Theta], 0, 2 \[Pi]}]}},
 AspectRatio -> Automatic,
 PlotRangePadding -> 0.5,
 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],
    PGRadiusNumberFunction -> (RotateOp[90 \[Degree]]@
        NumberForm[#, {3, 2}] &),
    PGAngleNumberFunction -> (Mod[-# + 90 \[Degree], 360 \[Degree]] &),
    PGLabelRadiusFactor -> 1.15],
   Red,
   PolarDraw[1 + \[Theta]/(2 \[Pi]), {\[Theta], 0, 2 \[Pi]}] //
     ReflectionTransformOp[{1, 0}, {0, 0}] //
    RotateOp[-90 \[Degree], {0, 0}]}},
 AspectRatio -> Automatic,
 PlotRangePadding -> 0.5,
 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
includes a downloadable notebook and a PDF copy of the notebook.

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