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
------------------------------