Re: A Plot to Rotate

• To: mathgroup at smc.vnet.net
• Subject: [mg7414] Re: [mg7378] A Plot to Rotate
• From: jpk at max.mpae.gwdg.de
• Date: Sat, 31 May 1997 15:07:23 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```> I'm having trouble getting a Plot to work.  It plots my function just fine
> but I want the whole shebang rotated 90 degrees counterclockwise.
>
> The plot is of the interior angles of the rhombic faces of polar zonohedra,
> as the polar zonohedrons "pitch" varies from 0 to 90 degrees.  As it stands
> now pitch runs along the x axis.  I want pitch on the y axis.  Here is the
> code as it stands now, for n=11 (n<=3):
>
> n=11;
> p=Plot[Evaluate[Table[
> {i,Floor[n/2]}]], {j,0,90},
> Frame->True,
> AspectRatio->Automatic,
> PlotPoints->30,
> PlotStyle->{{AbsoluteThickness[2]},{AbsoluteThickness[1]}}]
>
> Thanks much for any help.  I've tried some things but failed.
>
> Russell Towle
> Giant Gap Press:  books on California history, digital topographic maps
> P.O. Box 141
> Dutch Flat, California 95714
> ------------------------------
> Voice:  (916) 389-2872
> e-mail:  rustybel at foothill.net
> ------------------------------
Hi Russel,

the lines

Needs["Geometry`Rotations`"]

Show[Graphics[First[p] /.
Line[pnts_] :>
Line[Rotate2D[#,Pi/2]& /@ pnts]]];

will do what You want.

Hope that helps
Jens

```

• Prev by Date: Plot Rotation solution
• Next by Date: Re: Won't Read Entire Soundfile; Why?
• Previous by thread: Re: A Plot to Rotate
• Next by thread: Re: Get answers out of listform