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