超欠挖程序(左右线全套).docVIP

双线隧道单交点法超欠挖程序（5800整合版） 说明：本程序只用于 双线隧道 隧道中线偏移线路中线 四心圆 超欠挖计算 本程序共计52 个额外变量。字节为6000多。 思路：只通过超欠挖主程序，输入实测点的坐标，高程，可算出此点的超欠挖情况。通过QH2-7程序的坐标反算桩号功能，竖曲线计算此桩号的设计高程，超欠挖算出超欠挖。 主程序（超欠挖） CQW 52→DimZ：Prog “QH2-7+“： Z[34]=1=Stop Prog “SQX”: “Z=”? →Z[51] If Z[40]=0: Then If S180: Then Z[38]+0.105→Z[38]: Else Z[38]-0.105→Z[38]: IfEnd:IfEnd If Z[40]=1: Then If S180: Then Z[38]-0.105→Z[38]: Else Z[38]+0.105→Z[38]: IfEnd:IfEnd If Z[51] ≤H-1.172: Then “R4=”:√(Z[38]2 +(Z[51]-H-3.85) 2 )-5.53→Z[52] ▲ Else If Z[51] ≤H-0.246: Then “R3=”:√((Z[38]-1.667)2 +(Z[51]-H-0.236) 2 )-1.55→Z[52] ▲ Else If Z[51] ≤H+3.328: Then “R2=”:√((Z[38]+7.78)2 +(H+3.328-Z[51]) 2 )-11.49→Z[52] ▲ Else If Z[51] ≧H+3.328: Then “R1=”:√(Z[38]2 +( Z[51]- H-3.328) 2 )-3.713→Z[52] ▲ IfEnd:IfEnd: IfEnd:IfEnd “K=”:Z[50] ▲ 子程序（QH2-7） QH2-7+（以区别于原来的QH2-7） 只是在程序前把参数放入子程序，添加了选择左右线命令。蓝色为原程序内容。 Deg：Fix 4：FreqOn：←┘ 40→DimZ←┘ “ZX(0),YX(1),JX(2)=”? →O←┘ If O=0: Then 0→Z[40]: Prog “QH2-7-Z”: Else If O=1: Then 1→Z[40]: Prog “QH2-7-Y”: Else O=2→ Goto 1: IfEnd: IfEnd:ClrStat If Q0: Then -1→Z[20]: Else 1→Z[20]: IfEnd Abs(Q) →D Pol(B-U,C-V):Cls 以下不改变 子程序（平曲线左线数据） QH2-7-Z 此程序就是把原来QH2-7中的输入参数部分摘出，方便左，右线。 44800.949 (此交点桩号)→Z:31559.564（此交点X坐标）→B:8850.7829（此交点Y坐标）→C:32620.182（上一交点X坐标）→U:8730.214（上一交点Y坐标）→V:-5.52’11.41”（此交点转角，左负右正） →Q:779.7435（入口缓和曲线参数）→E:3200（圆曲线半径）→R:779.7435（出口缓和曲线参数）→F 子程序（平曲线右线数据） QH2-7-Y 同 子程序（平曲线右线数据） QH2-7-Z 子程序（竖曲线计算公式）SQX 52→DimZ :Z→Z[50]： Z[40]=0 = Prog“SQX-Z”:Z[40]=1 = Prog“SQX-Y”←┘ Z[46]*Abs（Z[44]-Z[45]）÷2→Z[47] If Z[44]-Z[45]0：then -1→Z[48]:else 1→Z[48]：IfEnd If Z[50]≤Z[42]-Z[47] And Z[50]Z[41]：then “H=”:Z[49]-(Z[42]-Z[50])*Z[44]→H▲IfEnd←┘ If Z[50]＞Z[42]-Z[47] And Z[50]≤Z[42]：then “H=”:Z[49]-(Z[42]-Z[50])*Z[44]+Z[48](Z[50]-Z[42]+Z[47])2÷(2*Z[46])→ H▲IfEnd←┘ If Z[50]＞Z[42] And Z[50]≤Z[42]+Z[47]：then “H=”:Z[49]+(Z[50]-Z[42])*Z[45]+Z[48](Z[42]+Z[47]-Z[50])2÷(2*Z[46])→ H▲IfEnd←┘ If Z[50]＞Z[42]+Z[47] And Z[50] ≤Z[43]：then “H=”:Z[49]+(Z[50]-Z[42])*Z[45]→H▲IfEnd←┘ 子程序（竖曲线左线数据）SQX-Z if Z[50]≤46047.938（此竖曲线段直线终点里程）And Z[50]4