5800竖曲线程序

Fix 3:20→Dimz ‘X’?X: ‘U’?U

Lbl 1: cls: ‘K1’?K:’B1’?B:’H’?P

Prog“C-1”:Prog“C-2”: If B≠0=> Goto 2: G-P+U-X →Z[4]:“GC=”:Z[4] ◢ Goto1

Lbl 2: D-P+U-X →Z[5]:“DC=”:Z[5] ◢ Goto1

X 路面厚度P 视线高K 桩号B 距中距离U 前视GC 高差

C-1（数据库）

If K≤181.37: Then -0.0045→W:0.00295→V:140→A:8.42→F:11000→R: Goto 1 Ifend If K≤320.18 :Then:0.00295→W: -0.0175→V:282.49→A:8.84→F:5100→R: Goto 1 :Ifend If K≤503.119 :Then: -0.0175→W: 0.00828→V:465→A:6.695→F:3800→R: Goto 1: Ifend If K≤701.182: Then: 0.00828→W: 0→V:643.074→A:8.17→F:0→R: Goto 1 :Ifend Lbl 1

C-2（计算）

M=W-V: Abs(RM)÷2→T: Abs(M)÷M →M If K>A-T:Then Goto 1:Ifend 0→Z[2]: W→Z[1]:Goto 4

Lbl 1: If K>A:Then Goto 2: Else M→Z[2]: -T→J:W→Z[1]:Goto 4: Ifend Lbl 2: If K>A+T:Then Goto 3: Else M→Z[2]: T→J: V →Z[1]:Goto 4:Ifend Lbl 3:0→ Z[2]:V→Z[1]

Lbl 4: Abs(B)→Z[3]: If B≠0 :Then F+Z[1](K-A)-Z[2](K-A-J)²÷Abs(2R) →G: Else F+Z[1](K-A) →G Prog’C-3’

C-3（坡度）

Z[3]-0→Z[3] G-0.015 Z[3] →D