卡西欧5800程序（完整版）
If Z〔2〕≥ 36θ:Then Z〔2〕- 36θ→Z[2]:IfEnd↓
FWJ
θ→I:θ→J↓ Pol(H-G,W-Z) ↓ J<θ?J+36θ→J↓ J→F
DOTLINE
Pol(H-X,W-Y):I→N↓ Pol(G-H,Z-W):I→E ↓ Pol(X-G,Y-Z):I→D↓ (N+E+D)÷2→I↓
√(I(I-N)(I-E)(I-D))→I ↓ 2I÷D→I ↓
ZSPD
If A≤P-T+S+D:Then Prog＂QXCS＂:θ→K:IfEnd ↓
FSPD
If K=-1:Then If Z〔1〕< Z〔2〕:Then If F≤Z〔1〕:Then Goto 1 :IfEnd:If F≥Z〔2〕:Then Goto 1 :IfEnd:Else If F≤Z〔1〕:Then F≥Z〔2〕:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓
- 6 -
卡西欧5800程序（完整版）
If K=1:Then If Z〔1〕> Z〔2〕:Then If F≥Z〔1〕:Then Goto 1 :IfEnd :If F≤Z〔2〕:Then Goto 1 :IfEnd:Else If F≥Z〔1〕:Then If F≤Z[2]:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓ θ→A: Goto 2↓ Lb1 1↓
If O=θ:Then Prog＂FSYUAN＂:IfEnd↓ If O=1:Then Prog＂FSHHQX＂:IfEnd↓ 1→A↓ Lb1 2
FSTJ
U-90K→Z[1]↓ V-90K→Z[2]↓ Prog＂JDTZ＂↓ P-T→A↓ -1→O↓ Prog＂JDZB＂↓ Prog＂FSPD＂↓
If A=θ:Then Goto 1 :IfEnd↓（有改） Z[1]→Z[1]: Z[1]+K(L÷(2R))→Z[2]:1→O↓ Prog＂JDTZ＂↓ Prog＂JDZB＂↓
- 7 - r
卡西欧5800程序（完整版）
Prog＂FSPD＂↓
If A=1:Then θ→K: Goto 2 :IfEnd↓
Z[5]→X:Z[6]→Y:(KL)÷(6R)→F:L-L^3÷(90R)→C:U+F→J↓ Prog＂XZBH＂↓ U+3F+90K→J:R→C↓ Prog＂XZBH＂↓ X→G:Y→Z↓ Prog＂FWJ＂↓
Z[2]→Z[1]:Z[1]+K((S-2L)÷R)→Z[2]:θ→0↓ Prog＂JDTZ＂↓ Prog＂FSPD＂↓
If A=1:Then θ→K:Goto 2:IfEnd↓
-K→K:V+9θK→Z[1]:Z[1]+K(L÷(2R))→Z[2]:1→O↓ Prog＂JDTZ＂↓ P-T+S→A↓ Prog＂JDZB＂↓ Prog＂FSPD＂↓
If A=1:Then θ→K:Goto 2:IfEnd↓ Lb1 1↓
If D>θ:Then P-T+S→A:Prog＂FSLINE＂:If A=1:Then θ→K:IfEnd:IfEnd↓ Lb1 2
- 8 -
r
r
r
2
r
卡西欧5800程序（完整版）
FSYUAN
＂YUAN＂↓
36θ+K(F-Z[1])→F ↓ F≥36θ?F-36θ→F⊿↓
P-T+L+πRF÷18θ→Z:If K=1:Then R-I→B: Else I-R→B:IfEnd↓
FSHHQX
＂HHQX＂↓
Z[5]→X:Z[6]→Y ↓ Z[1]+18θ→J:R→C↓ Prog＂XZBH＂↓ X→G:Y→Z↓ Z[5]→X:Z[6]→Y ↓ Prog＂DOTLINE＂↓
If I<1:Then θ→B:Goto 3: Else I→B: Prog＂FSHHQX1＂:I→Z[7]:B+I÷10→B: Prog＂FSHHQX1＂:If I>Z[7] :Then Goto 1: Else:Goto 2:IfEnd:IfEnd↓ Lb1 1↓
B-I÷2→B: Prog＂FSHHQX1＂↓
If I<1:Then -I→I:Goto 3: Else Goto 1:IfEnd↓ Lb1 2↓
- 9 -
卡西欧5800程序（完整版）
B+I÷2→B: Prog＂FSHHQX1＂↓
If I<1:Then Goto 3: Else Goto 2:IfEnd↓（有改） Lb1 3↓
If A>P-T+L:Then P-T+S-B-I→Z: Else P-T+B+I→Z:IfEnd↓ If K=1:Then If A If K=-1:Then If A FSHHQX1 Z[5]→X:Z[6]→Y:Z[1]+9θK→J↓ Prog＂HHQX＂↓ X→Z[3]:Y→Z[4]↓ R→C:J+2Fr+9θK→J↓ Prog＂XZBH＂↓ X→G:Y→Z↓ Z[3]→X:Z[4]→Y ↓ Prog＂DOTLINE＂ JDZB Prog＂QDZB＂↓ Z[5]→Z[3]:Z[6]→Z[4] ↓ - 10 -