Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How to rotate a PolarPlot?

• To: mathgroup at smc.vnet.net
• Subject: [mg57987] Re: [mg57982] How to rotate a PolarPlot?
• From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
• Date: Thu, 16 Jun 2005 05:35:44 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Just use rotation matrix !

For example :

<< "Graphics`Graphics`"

des = PolarPlot[Exp[0.2*t], {t, 0, 8*Pi}, PlotStyle -> Red, PlotRange -> All, 
    AspectRatio -> Automatic, Ticks -> None]; 

Create a rotation function :

rot[draw_, α_] := Show[draw /. {(x_)?NumericQ, y_} -> 
     {{Cos[α], -Sin[α]}, {Sin[α], Cos[α]}} . {x, y}]

Try it :

rot[des, Pi/2];

Regards
 
F.Jaccard


-----Message d'origine-----
De : paul at selfreferral.com [mailto:paul at selfreferral.com] 
Envoyé : mercredi, 15. juin 2005 11:58
� : mathgroup at smc.vnet.net
Objet : [mg57982] How to rotate a PolarPlot?

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