casio4800曲线坐标计算（源程序）供测友们参考


曲线坐标计算（源程序）
File1:QXZB
L1 V“ZJZ(L-,R+)”:R:I“LS”:C“ZH(ZY)”:W“FWJ”:A“XJD”:B“YJD”
L2 Z[1]=90I÷R÷Л：Z[2]=I÷2－I^3÷240÷R2:Z[3]=I2÷24÷R:T= Z[2]+(R+ Z[3])tan(AbsV÷2):H“L”＝ЛR(AbsV÷2×Z[1]÷180+2I:E=(R+ Z[3] ) (cos(AbsV÷2))-1－R
L3 Lbl 0
L4 ｛S｝:S“K”
L5 P=W－V+180:Z=R+E
L6 L=S－C
L7 L>0 Prog“ZH”: Prog“XZ” 
L8 X=A+DcosU◢　Y=B+DsinU◢
L9 Goto 0
File2 ZH
L≥I　 Prog“QZ”: Prog“HY”
File3 QZ
L1 J=H－I
L2 L>J Prog“HZ”: Prog“YH” 
File4 HZ
L≥H D=T+L－H: U=W:F=W◢　 Prog“YZ” 

File5 XZ
D=T+C－S: U=P:F=W－V◢
File6 HY
L1 M=L－L^5÷40÷R2÷I2:N=L^3÷6÷R÷I－L^7÷336÷R^3÷I^3:K=T－M:D=√(K2+N2):G=tan-1(N÷K)
L2 V < 0 U=P+G:F=W－V－90(S－C)2÷I÷R÷Л◢　 U=P－G:F=W－V+90(S－C)2÷I÷R÷Л◢　 
File7 YH 
L1 Q=H÷2－L
L2 O=Abs180Q÷R÷Л:D=√(R2+Z2－2RzcosO)
L3 G=Abssin-1 (RsinO÷D)
L4 V <0 Prog“QX”: Prog“QS” 
File8 YZ
L1 L=H－L
L2 M=L－L^5÷40÷R2÷I2:N=L^3÷6÷R÷I－L^7÷336÷R^3÷I^3:K=T－M:D=√(K2+N2):G=tan-1(N÷K)
L3 V < 0 U=W－G:F=W+90(H+ C－S)2÷I÷R÷Л◢　 U=W+G:F=W－90(H+ C－S)2÷I÷R÷Л◢