MathGroup Archive 1997

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

Search the Archive

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	          


  • 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