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-...

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:

  • 发表于 2018-11-05 14:17
  • 阅读 ( 206 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

192 篇文章

作家榜 »

  1. admin 192 文章
  2. 老Y 25 文章
  3. 胡亮 4 文章
  4. 肖肖 3 文章
  5. netbee 1 文章
  6. 唯一 1 文章
  7. 梁雄 1 文章
  8. 秦汉 1 文章