卡西欧5800基本测量程序(完整版)

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

Prog＂ZFXZ＂↓

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↓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↓

2R Sin(K F r)→C ↓

J+F r→J ↓

Prog＂XZBH＂

HHQX

B-B^5÷(9θ(RL)2)→C ↓

KB2÷(6RL)→F ↓

J+ F r→J↓

Prog＂XZBH＂

PYJS

If O=θ:Then＂YUAN＂:J+F r→J:IfEnd↓

If O=1:Then＂HHQX＂:J+2F r→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＂↓

"X=":X◢

"Y=":Y◢

QXCS(有改)

Prog＂QDZB＂↓

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÷(90R2)→C:KL÷(6R)→F:U+F r→J: Prog＂XZBH＂:U+3F r→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＂

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↓

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↓

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↓（有改）