5800高程计算(含超高).docVIP

5800高程计算（含超高） BG:（标高计算式程序）Lbl 1：Abs(.01(I－J)R÷2)－﹥T：If Z≥L+T：Then Goto 4:IfEndIf Z≥L-T：Then Goto 3:IfEndLbl 2：H+.01(Z－L)I－﹥B: Goto 5Lbl 3:H+.01(Z-L)I+(J-I)(Z+T-L)2÷(2R Abs(J-I)) －﹥B:Goto 5Lbl 4:H+.01(Z-L)J－﹥B:Goto 5Lbl 5:BH——竖曲线顶点高程I——后坡J——前坡L——竖曲线顶点桩号B——设计高程R——圆曲线半径GX:（挂线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto 4: IfEnd??If U=1: Then??Prog“L1”： Prog“PY”：Goto 1: IfEndIf U=2: Then??Prog“L2”： Prog“PY”：Goto 1: IfEndIf U=3: Then??Prog“L1”： Prog“PZ”：Goto 1: IfEndIf U=4: Then??Prog“L2”： Prog“PZ”：Goto 1: IfEndIf U=5: Then??Prog“L3”： Prog“PZ”：Goto 1: IfEndIf U=6: Then??Prog“LA”：Goto 2: IfEndIf U=7: Then??Prog“LB”：Goto 2: IfEndIf U=8: Then??Prog“LC”：Goto 2: IfEndIf U=9: Then??Prog“LD”：Goto 2: IfEndIf U=10: Then??Prog“LE”：Goto 2: IfEndLbl 1： Prog“BG”：Prog“HP”： “B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4：((B－W) －(S－N) ÷1000+.01P(E－1))×1.31+.2－﹥M: “GX=”:M▲If E≠13.5: Then Goto 3:Else E=13.5: “V=”?V:Z+V－﹥Z: Goto 0: IfEndTX:（抬线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto 4: IfEnd??If U=1: Then??Prog“L1”： Prog“PY”：Goto 1: IfEndIf U=2: Then??Prog“L2”： Prog“PY”：Goto 1: IfEndIf U=3: Then??Prog“L1”： Prog“PZ”：Goto 1: IfEndIf U=4: Then??Prog“L2”： Prog“PZ”：Goto 1: IfEndIf U=5: Then??Prog“L3”： Prog“PZ”：Goto 1: IfEndIf U=6: Then??Prog“LA”：Goto 2: IfEndIf U=7: Then??Prog“LB”：Goto 2: IfEndIf U=8: Then??Prog“LC”：Goto 2: IfEndIf U=9: Then??Prog“LD”：Goto 2: IfEndIf U=10: Then??Prog“LE”：Goto 2: IfEndLbl 1： Prog“BG”：Prog“HP”： “B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4:(B－W)+.01P(E－1) －(S－N) ÷1000－﹥M: “TX=”:M▲If E≠0: Then Goto 3:Else E=0: “V=”?V:Z+V－﹥Z: Goto 0: IfEndE——距中桩距离N——前视读数S——视线高U——条件语句V——桩号递进参数W——结构层厚度Z——所求桩号HP:（超高缓和段前后等长的线性横坡计算子程序）If Z≤A:Then -2－﹥P: Goto1： IfEndIf Z≤A+C:Then -2+(F+2)(Z-A) ÷C－﹥P: Goto1：If