5800高程计算(含超高)

《5800高程计算(含超高)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5800高程计算（含超高）BG:（标高计算式程序）Lbl1：Abs(.01(I－J)R÷2)－﹥T：IfZ≥L+T：ThenGoto4:IfEndIfZ≥L-T：ThenGoto3:IfEndLbl2：H+.01(Z－L)I－﹥B:Goto5Lbl3:H+.01(Z-L)I+(J-I)(Z+T-L)2÷(2RAbs(J-I))－﹥B:Goto5Lbl4:H+.01(Z-L)J－﹥B:Goto5Lbl5:BH——竖曲线顶点高程I——后坡J——前坡L——竖曲线顶点桩号B——设计高程R——圆曲线半径GX:（挂线高计算主程

2、序）Lbl0：“U=”?U:“Z=”?Z:IfU=0:Then?L:?H:?I:?J:?R:“Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto4:IfEnd  IfU=1:Then  Prog“L1”：Prog“PY”：Goto1:IfEndIfU=2:Then  Prog“L2”：Prog“PY”：Goto1:IfEndIfU=3:Then  Prog“L1”：Prog“PZ”：Goto1:IfEndIfU=4:Then  Prog“L2”：Prog“PZ”：Goto1:IfEndIfU=5

3、:Then  Prog“L3”：Prog“PZ”：Goto1:IfEndIfU=6:Then  Prog“LA”：Goto2:IfEndIfU=7:Then  Prog“LB”：Goto2:IfEndIfU=8:Then  Prog“LC”：Goto2:IfEndIfU=9:Then  Prog“LD”：Goto2:IfEndIfU=10:Then  Prog“LE”：Goto2:IfEndLbl1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto3Lbl2：Prog“BG”：“B=”：B▲

4、“P=”：?P：Goto3Lbl3:“S=”?S:“W=”?W:“E=”?E:“N=”?N:Lbl4：((B－W)－(S－N)÷1000+.01P(E－1))×1.31+.2－﹥M:“GX=”:M▲IfE≠13.5:ThenGoto3:ElseE=13.5:“V=”?V:Z+V－﹥Z:Goto0:IfEndTX:（抬线高计算主程序）Lbl0：“U=”?U:“Z=”?Z:IfU=0:Then?L:?H:?I:?J:?R:“Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto4:IfEnd  IfU=

5、1:Then  Prog“L1”：Prog“PY”：Goto1:IfEndIfU=2:Then  Prog“L2”：Prog“PY”：Goto1:IfEndIfU=3:Then  Prog“L1”：Prog“PZ”：Goto1:IfEndIfU=4:Then  Prog“L2”：Prog“PZ”：Goto1:IfEndIfU=5:Then  Prog“L3”：Prog“PZ”：Goto1:IfEndIfU=6:Then  Prog“LA”：Goto2:IfEndIfU=7:Then  Prog“LB”：Goto2:

6、IfEndIfU=8:Then  Prog“LC”：Goto2:IfEndIfU=9:Then  Prog“LD”：Goto2:IfEndIfU=10:Then  Prog“LE”：Goto2:IfEndLbl1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto3Lbl2：Prog“BG”：“B=”：B▲“P=”：?P：Goto3Lbl3:“S=”?S:“W=”?W:“E=”?E:“N=”?N:Lbl4:(B－W)+.01P(E－1)－(S－N)÷1000－﹥M:“TX=”:M▲IfE≠0:

7、ThenGoto3:ElseE=0:“V=”?V:Z+V－﹥Z:Goto0:IfEndE——距中桩距离N——前视读数S——视线高U——条件语句V——桩号递进参数W——结构层厚度Z——所求桩号HP:（超高缓和段前后等长的线性横坡计算子程序）IfZ≤A:Then-2－﹥P:Goto1：IfEndIfZ≤A+C:Then-2+(F+2)(Z-A)÷C－﹥P:Goto1：IfEndIfZ≤A+C+O:ThenF－﹥P:IfEndIfZ≤A+O+2C:Then-2+(F+2)(A+O+2C-Z)÷C－﹥P:Goto1：IfE

8、ndIfZ＞A+O+2C:Then-2－﹥P:Goto1：IfEndLbl1:本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——前超高缓和段起点桩号C——超高缓和段长度F——全超高段横坡O——全超高长度P——所求桩号横坡HP1（超高缓和段前后不等长的线性横坡计算子程序）：IfZ＜A:Then-2→P:Goto1:If