Plot Rotation solution
- To: mathgroup at smc.vnet.net
- Subject: [mg7421] Plot Rotation solution
- From: rustybel at foothill.net (Russell Towle)
- Date: Sat, 31 May 1997 15:07:35 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi all, Thanks for the fine suggestions as to how to rotate my Plot. Allan Hayes offered the best solution, by converting my Plot to a ParametricPlot. Here is my original Plot, and Hayes' ParametricPlot: 1. Originally: n=11; 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]}}] 2. Hayes' ParametricPlot: n=11; ParametricPlot[ Evaluate[Flatten[Table[ {{rad=N[2*(1/Degree)*ArcSin[Sin[i*Pi/n]/Sec[Degree j]]],j},{circ=180-rad,j}}, {i,Floor[n/2]}],1]], {j,0,90}, Frame->True, FrameTicks-> {Table[k,{k,0,180,10}], Table[k,{k,0,90,5}], None, None}, AspectRatio->Automatic, PlotPoints->30, PlotStyle->{{AbsoluteThickness[2]},{AbsoluteThickness[1]}} ] 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 ------------------------------