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

曲线坐标计算（源程序）
File1:QXZB
L1&nbspV“ZJZ(L-,R+)”:R:I“LS”:C“ZH(ZY)”:W“FWJ”:A“XJD”:B“YJD”
L2&nbspZ[1]=90I÷R÷Л：Z[2]=I÷2－I^3÷240÷R2:Z[3]=I2÷24÷R:T=&nbspZ[2]+(R+&nbspZ[3])tan(AbsV÷2):H“L”＝ЛR(AbsV÷2×Z[1]÷180+2I:E=(R+&nbspZ[3]&nbsp)&nbsp(cos(AbsV÷2))-1－R
L3&nbspLbl&nbsp0
L4&nbsp｛S｝:S“K”
L5&nbspP=W－V+180:Z=R+E
L6&nbspL=S－C
L7&nbspL>0&nbspProg“ZH”:&nbspProg“XZ”&nbsp
L8&nbspX=A+DcosU◢　Y=B+DsinU◢
L9&nbspGoto&nbsp0
File2&nbspZH
L≥I　&nbspProg“QZ”:&nbspProg“HY”
File3&nbspQZ
L1&nbspJ=H－I
L2&nbspL>J&nbspProg“HZ”:&nbspProg“YH”&nbsp
File4&nbspHZ
L≥H&nbspD=T+L－H:&nbspU=W:F=W◢　&nbspProg“YZ”&nbsp

File5&nbspXZ
D=T+C－S:&nbspU=P:F=W－V◢
File6&nbspHY
L1&nbspM=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&nbspV&nbsp<&nbsp0&nbspU=P+G:F=W－V－90(S－C)2÷I÷R÷Л◢　&nbspU=P－G:F=W－V+90(S－C)2÷I÷R÷Л◢　&nbsp
File7&nbspYH&nbsp
L1&nbspQ=H÷2－L
L2&nbspO=Abs180Q÷R÷Л:D=√(R2+Z2－2RzcosO)
L3&nbspG=Abssin-1&nbsp(RsinO÷D)
L4&nbspV&nbsp<0&nbspProg“QX”:&nbspProg“QS”&nbsp
File8&nbspYZ
L1&nbspL=H－L
L2&nbspM=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&nbspV&nbsp<&nbsp0&nbspU=W－G:F=W+90(H+&nbspC－S)2÷I÷R÷Л◢　&nbspU=W+G:F=W－90(H+&nbspC－S)2÷I÷R÷Л◢