Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

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?