MathGroup Archive 1997

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

Search the Archive

Plot Rotation solution


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?