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