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

```

• Prev by Date: Re: PS printing problems: MMA V3.0 and Macs
• Next by Date: Re: A Plot to Rotate
• Previous by thread: Re: variable declarations in mathematica?
• Next by thread: Re: Won't Read Entire Soundfile; Why?