5800高程计算（含超高）

BG:（标高计算式程序）
Lbl 1：Abs(.01(I－J)R÷2)－﹥T：
If Z≥L+T：Then Goto 4:IfEnd
If Z≥L-T：Then Goto 3:IfEnd
Lbl 2：H+.01(Z－L)I－﹥B: Goto 5
Lbl 3:H+.01(Z-L)I+(J-I)(Z+T-L)2÷(2R Abs(J-I)) －﹥B:Goto 5
Lbl 4:H+.01(Z-L)J－﹥B:Goto 5
Lbl 5:B
H——竖曲线顶点高程
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: IfEnd
If U=2: Then  Prog“L2”： Prog“PY”：Goto 1: IfEnd
If U=3: Then  Prog“L1”： Prog“PZ”：Goto 1: IfEnd
If U=4: Then  Prog“L2”： Prog“PZ”：Goto 1: IfEnd
If U=5: Then  Prog“L3”： Prog“PZ”：Goto 1: IfEnd
If U=6: Then  Prog“LA”：Goto 2: IfEnd
If U=7: Then  Prog“LB”：Goto 2: IfEnd
If U=8: Then  Prog“LC”：Goto 2: IfEnd
If U=9: Then  Prog“LD”：Goto 2: IfEnd
If U=10: Then  Prog“LE”：Goto 2: IfEnd
Lbl 1： Prog“BG”：Prog“HP”： “B=”：B▲
“P=”：P▲
Goto 3
Lbl 2：Prog“BG”：“B=”：B▲
“P=”：?P ：Goto 3
Lbl 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: IfEnd

TX:（抬线高计算主程序）
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: IfEnd
If U=2: Then  Prog“L2”： Prog“PY”：Goto 1: IfEnd
If U=3: Then  Prog“L1”： Prog“PZ”：Goto 1: IfEnd
If U=4: Then  Prog“L2”： Prog“PZ”：Goto 1: IfEnd
If U=5: Then  Prog“L3”： Prog“PZ”：Goto 1: IfEnd
If U=6: Then  Prog“LA”：Goto 2: IfEnd
If U=7: Then  Prog“LB”：Goto 2: IfEnd
If U=8: Then  Prog“LC”：Goto 2: IfEnd
If U=9: Then  Prog“LD”：Goto 2: IfEnd
If U=10: Then  Prog“LE”：Goto 2: IfEnd
Lbl 1： Prog“BG”：Prog“HP”： “B=”：B▲
“P=”：P▲
Goto 3
Lbl 2：Prog“BG”：“B=”：B▲
“P=”：?P ：Goto 3
Lbl 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: IfEnd
E——距中桩距离
N——前视读数
S——视线高
U——条件语句
V——桩号递进参数
W——结构层厚度
Z——所求桩号

HP:（超高缓和段前后等长的线性横坡计算子程序）
If Z≤A:Then -2－﹥P: Goto1： IfEnd
If Z≤A+C:Then -2+(F+2)(Z-A) ÷C－﹥P: Goto1：IfEnd
If Z≤A+C+O:Then F－﹥P: IfEnd
If Z≤A+O+2C:Then -2+(F+2)(A+O+2C-Z) ÷C－﹥P: Goto1： IfEnd
If Z＞A+O+2C:Then -2－﹥P: Goto1：IfEnd
Lbl 1:
本程序超高是绕中轴旋转
起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）
A——前超高缓和段起点桩号
C——超高缓和段长度
F——全超高段横坡
O——全超高长度
P——所求桩号横坡

HP1 （超高缓和段前后不等长的线性横坡计算子程序）：
If Z＜ A: Then -2→P: Goto 1:IfEnd
If Z≤A+L: Then -2+(F+2)(Z-A)/L→P: Goto 1:IfEnd
If Z≤A+L+ O : Then F→P: Goto 1:IfEnd
If Z≤A+ L+O+C: Then -2+(F+2)(A+ O –Z)/C→P: Goto 1:IfEnd
If Z>A + L+O+C: Then -2→P: Goto 1:IfEnd
本程序超高是绕中轴旋转
起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）

A——前超高缓和段起点桩号
L——前超高缓和段长度
C——后超高缓和段长度
F——全超高段横坡
O——全超高长度
P——所求桩号横坡

HP2:（3次抛物线性横坡计算子程序）
If Z≤A:Then P－﹥P: Goto1： IfEnd
If Z≤Q:Then (Z-A)÷（Q-A）－﹥K:  P+(3K2-2K3)(F-P) －﹥P: Goto1：IfEnd
If Z＞Q:Then F－﹥P: Goto1： IfEnd
Lbl 1:
本程序超高是绕中轴旋转
（设定中央分隔带边缘高于路面外侧边缘横坡为负）
A——横坡变化段起点桩号; P——(是过渡值)横坡变化段起点横坡
Q——横坡变化段终点桩号;F——横坡变化段终点横坡
P——所求桩号横坡

L1..或LA…等:（竖曲线数据库）
If Z≤×××  :Then  ×××－﹥I : ×××－﹥J :×××－﹥L :×××－﹥ H :×××－﹥  R : Goto 1: IfEnd
………
Lbl 1:

PY或PZ（横坡数据库）
If Z≤Q+O:Then   ×××  －﹥A: ×××－﹥Q:×××－﹥P :×××－﹥ F : Goto 1: IfEnd
………
Lbl 1:

最后编辑：2019-08-01

作者：dawang

这个作者貌似有点懒，什么都没有留下。

站内专栏