Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How to rotate a PolarPlot?

• To: mathgroup at smc.vnet.net
• Subject: [mg57997] Re: [mg57982] How to rotate a PolarPlot?
• From: "David Park" <djmp at earthlink.net>
• Date: Thu, 16 Jun 2005 05:35:54 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Paul,

You have to change the iterator range and compensate in the radial
expression. Let ang be the angle of rotation.

ang = Pi;
PolarPlot[Exp[(t - ang)/5], {t, ang, 8Pi + ang},
    PlotStyle -> Red,
    PlotRange -> All,
    AspectRatio -> Automatic,
    Ticks -> None];

Or you could use ParametricPlot.

ang = Pi;
ParametricPlot[Exp[t/5]{Cos[t + ang], Sin[t + ang]}, {t, 0, 8 Pi},
    PlotStyle -> Red,
    PlotRange -> All,
    AspectRatio -> Automatic,
    Ticks -> None];

Or you could plot this as a complex curve using the Cardano3 package from my
web site.

Needs["Cardano3`ComplexGraphics`"]

ang = Pi;
Draw2D[
    {Red, ComplexCurve[Exp[t/5 + I t]Exp[I ang], {t, 0, 8 Pi}]},
    AspectRatio -> Automatic,
    Axes -> True, Ticks -> None,
    PlotRange -> All];

Or you could use the DrawPolarR routine and DrawingTransform from the
underlying DrawGraphics package.

ang = Pi/2;
Draw2D[
    {Red,
      DrawPolarR[Exp[t/5], {t, 0, 8Pi}] /.
        DrawingTransform[#1Cos[ang] - #2Sin[ang] &, #1Sin[ang] + #2Cos[
                  ang] &]},
    AspectRatio -> Automatic,
    Axes -> True, Ticks -> None,
    PlotRange -> All];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: paul at selfreferral.com [mailto:paul at selfreferral.com]
To: mathgroup at smc.vnet.net


Hi All,

Would appreciate some help with this. I would like to know how I can
rotate the following plot to an arbitrary angle:

PolarPlot[Exp[.2t], {t, 0, 8p}, PlotStyle -> Red,
  PlotRange -> All, AspectRatio -> Automatic, Ticks -> None]

Thanks
Paul