卡西欧5800基本测量程序（完整版）

卡西欧5800程序（完整版）

卡西欧 5800 程序

(完整版)

说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功

- 1 -

卡西欧5800程序（完整版）

能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。

主程序:MAIN

＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算)

If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓ (第一个交点参数)

(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A

If K=θ:Then goto 2 :IfEnd↓

………… (中间交点参数) Prog＂ZFXZ＂↓

If K=θ:Then goto 2 :IfEnd↓

………… (最后一个交点参数)

If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓

- 2 -

卡西欧5800程序（完整版）

Prog＂ZFXZ＂↓

If K=θ:Then goto 2 :IfEnd↓ Lb1 1：＂NO TASK＂↓

Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢ ＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓

＂-------END-------＂

KUAN DU （拓展功能程序，用于反算）

1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓

If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓ ……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢

＂----------END---------＂

YUAN

K(B÷(2R))→F↓

- 3 -

卡西欧5800程序（完整版）

2R Sin(K F)→C ↓ J+Fr→J ↓ Prog＂XZBH＂

r

HHQX

B-B^5÷(9θ(RL)2)→C ↓ KB2÷(6RL)→F ↓ J+ F→J↓ Prog＂XZBH＂

r

PYJS

If O=θ:Then＂YUAN＂:J+F→J:IfEnd↓ If O=1:Then＂HHQX＂:J+2F→J:IfEnd↓ If O=2:Then＂LINE＂:J+18θ→J:IfEnd↓ W→C↓

If A>P-T+S-L:Then J-9θ→J:Else J+9θ→J:IfEnd↓ Prog＂XZBH＂↓ \◢ \◢

rr

QXCS(有改)

Prog＂QDZB＂↓

- 4 -

卡西欧5800程序（完整版）

If A≤P-T+L:Then A-P+T→B:U→J:1→O: Prog＂HHQX＂: Goto 1 :IfEnd↓

If A≤P-T+S-L:Then A-P+T-L→B:θ→0:L-L^3÷(90R)→C:KL÷(6R)→F:U+F→J: Prog＂XZBH＂:U+3Fr→J: Prog＂YUAN＂: Goto 1:IfEnd↓

If A≤P-T+S:Then P-T+S-A→B:1→O:-K→K:V+180→J: Prog＂HHQX＂: Goto 1 :IfEnd↓

If A≤P-T+S+D:Then 2→O:A-P+T-S→C: Prog＂XZBH＂:IfEnd↓ Lb1 1：↓ Prog＂PYJS＂↓ Prog＂GA0 CHENG＂

r

2

QDZB

N→X:E→Y:T→C↓

If A>P-T+S-L:Then V→J: Else U+18θ→J:IfEnd↓ Prog＂XZBH＂↓ X→Z〔5〕:Y→Z〔6〕

JDTZ

If Z〔1〕< θ:Then Z〔1〕+ 36θ→Z[1]:IfEnd↓ If Z〔1〕≥ 36θ:Then Z〔1〕- 36θ→Z[1]:IfEnd↓ If Z〔2〕< θ:Then Z〔2〕+ 36θ→Z[2]:IfEnd↓

- 5 -

卡西欧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 -

卡西欧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 -

本文来源：https://www.bwwdw.com/article/9ic6.html