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