卡西欧5800程序（完整版）
If O=-1:Then P-T+S→A: Prog＂QDZB＂:Z[3]→Z[5]:Z[4]→Z[6]: Else Z[1]+9θK+K(L÷(6R))r→J:L-L^3÷(9θR2)→C: Prog＂XZBH＂:IfEnd ↓
(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))÷(tan(Z[2])-tan(Z[1]))→G ↓
tanZ[2](G-X)+Y→Z↓ Prog＂FWJ＂
ZFXZ
If M=θ:Then Prog＂ZSPD＂: Else Prog＂FSTJ＂:IfEnd
FSLINE
Prog＂QDZB＂↓ X→G:Y→Z:J→N↓ Prog＂FWJ＂↓ N→J:F-J→F↓ Icos(F)→G↓
If G≤D:Then If A>P-T+S-L:Then P-T+S+G→Z:Isin(F)→B:Else P-T-G→Z:-Isin(F)→B:IfEnd :1→A:2→O: Else θ→A:IfEnd
XZBH
X+Ccos(J)→X↓ Y+Csin(J)→Y
- 11 -
卡西欧5800程序（完整版）
HENG PO
If A≤P-T+L-Z[10] :Then Z[8]→V:Goto 1:IfEnd↓ If
A
≤
P-T+L:Then
(Z[9]-Z[8])÷Z[10]
→
E:Z[8]+(A-P+T-L+Z[10])E→V: Goto 1:IfEnd↓ If A≤P-T+S-L:Then Z[9]→V:Goto 1:IfEnd↓ If A≤P-T+S-L+Z[10]:Then (Z[8]-Z[9])÷Z[10]→E:Z[9]+(A-P+T-S+L)E→V: Goto 1:IfEnd↓ Z[8]→V ↓ Lb1 1
GAO CHENG
……(交点桩号)→O:……(交点高程)→D:……(小桩号坡度)→N:……(切线长度)→G:……(圆曲线半径)→R ↓ If A≤O-G:Then θ→K: Goto 1:IfEnd↓
If A≤O+G:Then 1→K: Goto 1:IfEnd↓ (K=0为直线、K=1为凸圆、K=-1为凹圆) ……（同上）
Lb1 1:Prog＂HENG PO＂↓ K（A-O+G）÷(2R)→P ↓ D+N(A-O)-P+WV→F↓ \◢
- 12 -
2
卡西欧5800程序（完整版）
FWJJS (测回法测坐标)
A＂XA＂: B＂YA＂:C＂XB＂: D＂YB＂: K＂CHANG DU＂: G＂JIAO DU＂↓
I=0:J=0:Pol(C-A,D-B):J<0?J=J+360⊿↓ E=J+G↓ J＂FWJ＂◢ X＂X＂=A+KcosE◢ Y＂Y＂=B+KsinE◢ ＂-------END-------＂ 说明:
＂JIAO DU＂顺时钟为正、逆时针为负，＂XA＂、＂YA＂为测站点坐标、＂XB＂、＂YB＂为后视点坐标，＂X＂、＂Y＂为前视即待测点坐标，＂CHANG DU＂为测站点到待测点距离。
- 13 -