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

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