文档介绍：平曲线坐标计算程序(CASIO   fx-4800P)
A子程序:X>M⇒Prog“B”:Goto 0:≠⇒X=M⇒Prog“C”:≠⇒X<M⇒Prog“B”:Q=Q+180:Lb1 0:Q=Q+360:Q≥360⇒Q=Q-360◢≠⇒Q=Q◢
B子程序:Q“Q”=tan-1((Y-N)÷(X-M)
C子程序:Y≥N⇒Q=90◢
           ≠⇒Q=270◢
D子程序:C“SO”=√((X-M)2+(Y-N)2)
主程序:
R“R”S“LS1”U“LS2”W“ZG”P“WZH”:A=90S÷Rπ:B=90U÷Rπ:C=S2÷24R:D=U2÷24R:E=S÷2-S^3÷240R2:F=U÷2-U^3÷240R2:Q“T1”=E+(R+C)tan(AbsW÷2)+(D-C)÷sin AbsW◢
K“T2”=F+(R+C)tan(AbsW÷2)-(D-C)÷tan AbsW◢
O“S”=(AbsW-A-B)Rπ÷180+S+U◢
J“JD”T“XJD”V“YJD”:A“ZH”=J-Q◢
B“HY”=A+S◢
E“YH”=A+O-U◢
F“HZ”=A+O◢
G“XZH”=T+Q cos(P+180)◢
H“YZH”=V+Q sin(P+180)◢
I“XHZ”=T+K cos(P+W)◢
J“YHZ”=V+K sin(P+W)◢
M“XO”N“YO”:Prog“A”:Prog“D”◢
Lb1 O:{Z}:Z“ZHUANG HAO”:{D}:D:{T}:T“JG”:Lb1 0:Z≤A⇒Goto 1:≠⇒Z>A⇒Z≤B⇒L=Z-A:Goto 2:≠⇒Z>B⇒Z≤E⇒L=S:Goto 2:≠⇒Z>E⇒Z≤F⇒L=F-Z:Goto 2:≠⇒Z>F⇒C=Z-F:Goto 8△Lb1 1:C=A-Z:X=G+C cos(P+180):Y=H+C sin(P+180):V=P:Goto 9△Lb1 2:Z>A⇒Z≤E⇒K=RS:Goto Y:≠⇒Z>E⇒Z≤F⇒K=RU:Goto Y△Lb1 Y:K=0⇒V=P:X=G:Y=H:Goto 6△Goto 3:Lb1 3:X=L-L^5÷40K2+L^9÷3456K^4-L^13÷599040K^6:Y=L^3÷6K-L^7÷336K^3+L^11÷42240K^5-L^15÷9676800K^7:C√(X2+Y2):V=90L2÷πK:Q=tan-1(Y÷X):Goto A△Lb1 A:W<O⇒Q=-Q:V=-V•GotoB△ Lb1 B:Z>A⇒Z≤E⇒Goto 5:≠⇒Z>E⇒Z≤F⇒Goto 7△Lb1 5:X=G+C cos(P+Q):Y=H+C sin(P+Q):V=P+V :Goto C△ Lb1 C:Z>A⇒Z≤B⇒Goto 9:≠⇒Z>B⇒Goto 6△ Lb1 6:∠L=Z-B:Q=90L÷πR:C=2R sinQ:Goto D△ Lb1 D:W<O⇒Q=-Q:Goto E△ Lb1 E:X=X+C cos(V+Q):Y=C sin(V+Q)+Y:V=V+2Q:Goto 9△ Lb1 7:X=I+C cos(P+W+180-Q):Y=J+C sin(P+W+180-Q):V=P+W-V:Goto 9△ Lb1 8:X=I+C cos(P+W):Y=J+C s