卡西欧FX5800全线贯通万能正

FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版
OH    主程序
"1.ZS,2.FS" ?→Q              输入1正算，输入2反算  
“NEW=0,OLD ≠0”?Z
If  Z=0:Then  “X0=”?A:“Y0=”?B:“C0=”?C:“1÷R0=”?D:“1÷RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2
Lbl  1 :“KM=”?H:H<0=>Stop:“PJ=”?O:“PY=”?L
Lbl  Z:Z=1=> Prog“01”：Z=2=> Prog“02”      选择数据库文件，可增加
H- F→X:0.5(E-D)÷(G-F)→N
C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P
A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U
B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V
Q=2=>Goto  4：Cls：Fix 3
"Xn=":Locate  4，1，U："Yn=": Locate  5，2，V：“FWJ=”：P▶DMS◢
Norm 2：Cls：Goto  1
Lbl  2:“XD=”？R：R<0=>Stop:“YD=”？S
“LC=”？H ：