锥坡
A：B：U“u”：R“Rn“：N”n“：E”X0“：F”Y0“：V”Xh“：W”Yh“：Z”z=-1，z=+1“：Pol（V-E，W-F）：J＜0=＞J=J+360：△J:Fixm:LbI 0:｛K｝：P“Bn”=（K/N）*B：“Bn=”：P“Bn”▲
Q“An”=（√（A2-（（A2*P2）/B2）））/sinU：“An=“：Q”An“▲
C=（√（P2+Q2-2PQcos（180-U）））：T=sin-1 （（P*sin（180-U））/C）：S=90-（180-U）：O=sin-1 （（Q*sin（180-U））/C）：H=C+R：U≤90
=＞Goto 1：△U＞90=＞Goto 2：△
LbI 1：D=O
LbI 2：T≤S=＞D=180-O：△T＞S=＞D=O：△
“D=“：D▲
X=（cos （J+ZD））*H+E：“X=“：X▲
Y=（sin （J+ZD））*H+F：“Y=“：Y▲
Goto 0
说明
A 长轴距离 B矩轴距离 I 夹角 Rn 0以中心线 n 输入等份
X0 Y0 椭圆中心坐标 Xh Yh 矩轴定向坐标
Z=-1，Z=+1 顺时针+1 逆时针-1 K输入第？等份
Bn 中心到矩轴距离 An 中心到所求点方位角
X Y 所求点坐标