Re: How to rotate a PolarPlot?
- To: mathgroup at smc.vnet.net
- Subject: [mg57990] Re: How to rotate a PolarPlot?
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Thu, 16 Jun 2005 05:35:47 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d8ousa$2b$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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
>