MathGroup Archive 2005

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

Search the Archive

Re: How to rotate a PolarPlot?


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



  • Prev by Date: Re: For Loop and Array related
  • Next by Date: Re: Randomness Test
  • Previous by thread: Re: How to rotate a PolarPlot?
  • Next by thread: plot3D over a triangular domain