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