本程序为道路中边桩高程程序

本程序为道路中边桩高程程序（全线通),带数据库

行号GAOCH 注解说明

1 〝DK=〞?P:Prog〝GSO〞: DK为桩号GS0高程数据库。

2 〝ZP〞?W: 变边坡点桩号（可以去掉，在主程序中不显示)

3 〝HP〞?G: 变边坡点高程（可以去掉，在主程序中不显示)

4 R*Abs（J-I)÷100÷2→T：竖曲线切线长

5 W-T→Z: 竖曲线起点桩号

6 W+T→K: 竖曲线终点桩号

7 -Abs（J-I)÷（J-I）→M↓判断是凸曲线=1、凹曲线=-1

8 ?B:〝DL=〞?D:?U↓B设计到各层高度、变量DL-偏距U-横坡度

9 IF P≤Z;

10 Then G+(P-W)I÷100→H:Goto1:IfEnd↓前段直线段高程计算

11 IF P≤W：Then

12 G+(P-W)I÷100-M(P-Z)2÷（2R）→H:Goto1:IfEnd↓凸曲线段高程计算

13 IF P≤K：Then

14 G-(W-P)J÷100-M(P-K)2÷（2R）→H:Goto1;IfEnd↓凹曲线段高程计算

15 G+(W-P)J÷100→H:[b]1: 后段直线段高程计算

16 Int（H*1000+0.5）÷1000+B-D*U/100→H↓边桩高程计算

17 〝H=〞:H◢显示高程

18 〝H1=〞？F:H-F→Q↓H1是实测高程

19 〝Q=〞:Q◢Q值为+是超，-为欠

20 判别凸凹曲线J>I时M为1,J

21 I-J<0是凸曲线、I-J>0是凹曲线

行号高程GS0数据库

1 Goto1↓

2 [b]1;P>1889200:0→R:-1.304→I:3→J:1889975→W:4235.757→G:Return：IfEnd↓

P→桩号、R→半径、I→大里程坡度：程序中以除100（上坡为正下坡为负）、J→小里程坡度：程序中以除100（上坡为正下坡为负）、W→变坡点桩号、G→变坡点高程。