Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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



  • 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