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: [mg126827] Re: Polarplot orientation
  • From: "Mat' G\." <ellocomateo at free.fr>
  • Date: Mon, 11 Jun 2012 00:00:44 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <22124787.29000.1339226218251.JavaMail.root@m06> <jr1e7h$76f$1@smc.vnet.net>

2012-06-10 08:18, djmpark scripsit:
> 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
>
>
Thank you, that would certainly have done the job.
Yet, I found an easier/lighter way for my specific problem.

Compare the following plots:

Manipulate[
  Show[
   ParametricPlot[{
     {Cos[Angle] Angle, Sin[Angle] Angle}
     , {Sin[Angle] Angle, Cos[Angle] Angle}
     }, {Angle, 0, CurrentAngle}, PlotStyle -> {Red, Green}]
   , PolarPlot[Angle, {Angle, 0, CurrentAngle},
    PlotStyle -> {Dashed, Blue}]
   ]
  , {CurrentAngle, 0.01, 2 \[Pi]}]

Cheers! ;-)



  • Prev by Date: Re: WRI Curve and Filling Colors
  • Next by Date: Re: SmoothHistogram and Legends
  • Previous by thread: Re: Polarplot orientation
  • Next by thread: Re: Polarplot orientation