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

Correction, Rotated Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg7463] Correction, Rotated Plot
  • From: rustybel at foothill.net (Russell Towle)
  • Date: Thu, 5 Jun 1997 01:35:46 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Yeek!  With my customary attention to detail and the fullness of my
unbridled wisdom, I left out a critical part (the integer >=3, "n") of
Allan Hayes' solution to my problem of how to rotate a certain plot.  Here
is the code as it should have read:

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,20}], Table[k,{k,0,90,10}], 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: Ordered Pairs
  • Next by Date: Re: Map
  • Previous by thread: Re: Ordered Pairs
  • Next by thread: Ellipsoid in Mma