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[
> {{rad=N[2*(1/Degree)*ArcSin[Sin[i*Pi/n]/Sec[Degree j]]]},{circ=180-rad}},
> {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,
with Your p
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