MathGroup Archive 2005

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

Search the Archive

Re: How to rotate a PolarPlot?


Hi,

Needs["Graphics`Graphics`"]

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

Show[pp /. Line[pnts_] :> With[{alpha = Pi/4},
                            Line[{{Cos[alpha], 
Sin[alpha]},
                                  {-Sin[alpha], 
Cos[alpha]}}.# & /@ pnts]
                           ]
  ]

??

Regards

  Jens


<paul at selfreferral.com> schrieb im Newsbeitrag 
news:d8ousa$2b$1 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: Re: spotlight escape sequences
  • Next by Date: Re: How to rotate a PolarPlot?
  • Previous by thread: Re: How to rotate a PolarPlot?
  • Next by thread: Re: How to rotate a PolarPlot?