隧道程序_5800_V21版.xls

《隧道程序_5800_V21版.xls》由会员分享，可在线阅读，更多相关《隧道程序_5800_V21版.xls（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、V2.V2.1 1正正式式版版 山山西西运运城城中中条条山山特特长长隧隧道道（2010071820100718）中条山隧道 隧道超欠挖5800版 1.主程序(R-NTSSD-Y)1 Lbl 1：5DimZ：2 5800S：3 ProgSUB0(定义所在线元数据库)4 1PC:(P-R)(2HPR)D:180E:5 X=？X：Y=？Y：XI：YJ：6 :H=？Z1:7:R=？Z2:Z2Z38:ProgSUB29:O+WS：K=：S10 K=：S11 OF：Z12:SW13:ProgSUB3 14:Fix 5 “O=”：O15:1.5145+0O16:ProgSUB417:SQRT(Z1-Z)2+

2、B2)X18:“NO=+C.-Q”:X-Z2A:“FO=”:Z2-Z3P19:ClrMemory20 Goto 12.SUB0 数据库子程序Goto1Lbl 1：IF S7521.880:Then2084602.165G:5415.966O:3862016.416U:486781.980V:2800P:2800R:2105.914H:-1Q:Return:IfEndLbl 1:IF S10520:Then165*40*27.9*G（线元起点方位角）:7521.880O（线元起点里程）:3859976.099U（线元起点X）:486523.474V（线元起点Y）:10(45)P（线元起点曲率半径

3、）:10(45)R（线元终点曲率半径）:2998.120H（线元起点至终点长度）:0Q：Return:IfEnd3.正算子程序(SUB1)0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L：1-LF：1-KMU+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)Y：G+QE

4、W(C+WD)+90F：X+Zcos（F）X：Y+Zsin（F）Y4.反算子程序(SUB2)G-90T：Abs(Y-V)cos(T)-(X-U)sin(T)W：0Z：Lbl 0：Prog SUB1：T+QEW(C+WD)L：(J-Y)cos（L）-(I-X)sin（L）Z：IF Abs（Z）M And KC:Then(K-M)2/(2R)P:D+(K-C)I/100+QPO:Return:IfEndIF K C And KN:Then(K-M)2/(2R)P:D+(K-C)J/100+QPO:Return:IfEndIF K N:Then D+(K-C)J/100O:Return:IfEnd圆

5、心半径及偏离隧道中心线判断(SUB4)Z 0=Abs(Z)+4.375 B:Z0 And Z4.375-ZB:Z 4.375=Z-4.375BIF Z1-O0 And Z1-O10:Then Z2+5.43Z2:BB:Return:IfEndIF Z1-O-1.872:Then Z2+7.93Z2:B+2.5BIF Z1-O-2.968 And B 4.5611:Then Z2+1Z2:B-4.257B:O-1.5145-0.025 O:Return:IfEndIF Z1-O-5 And B 4.5611:Then Z2+15Z2:BB:O+11.798 O:Return:IfEnd1.新增两

6、侧电缆槽附近隧道内轮廓线1米半径不能计算功能，现能全断面计算超欠.2.显示设计高程.3.显示所在圆心半径.4.修正由高程判断半径（1米半径与15米半径相接）处计算错误盲区.（增加Z型5个变量）（输入近似里程）(定义所在线元数据库)(输入实测XY坐标,)(输入实测高程)(输入断面理论半径)(二衬厚度)(调用反算子程序,由反算两次调用正算子程序)(得到桩号及离设计线桩距离)输出反算桩号输出反算离设计线距离（-为左偏，+为右偏）(将变量值另存,利于后面计算)(调用高程计算子函数)（输出设计高程保留5位小数）设计标高+1.5145=上段面圆心高程(调用条件关系运算子函数)(得到实测点到圆心的距离)(将

7、实测点半径减理论半径即为超欠挖)显示所在圆心半径清除记忆平面曲线数据库 同时保存多个曲线时的指针（线元终点里程）（线元起点方位)（线元起点里程）（线元起点X）（线元起点Y）（线元起点曲率半径）（线元终点曲率半径）（线元起点至终点长度）线型偏转:左偏:-1Q,右偏:1Q,直线:0Q（线元终点里程）（线元终点里程）（线元起点方位)（线元起点里程）（线元起点X）（线元起点Y）（线元起点曲率半径）（线元终点曲率半径）（线元起点至终点长度）线型偏转:左偏:-1Q,右偏:1Q,直线:0Q竖曲线数据库变坡点桩号变坡点高程前坡值后坡值半径竖曲线类型:-1Q,I1-1Q,竖曲线起点桩号竖曲线终点桩号IF输入的桩

8、号所在竖曲线位置(变坡点前坡位置段)IF输入的桩号所在竖曲线位置(竖曲线变坡点前段)IF输入的桩号所在竖曲线位置(竖曲线变坡点后段)IF输入的桩号所在竖曲线位置(变坡点后坡位置段)Z=主程序反算距设计线距离:注:(-,+)(左为-,右为+)根据偏离设计线的距离推算距离隧道中心线的距离(三种条件1.在设计线左侧2.在设计线右侧且不大于隧道中心线位置3.在隧道中心线右侧)判断输入的高程所在的隧道位置及圆心半径1.progXYZ-DZTZ=H-ZDZ=Z+0.02D:Goto0:=Z=Z+0.02D:Goto0:LBI0:O=Z+1.5145:D0=D=4.375-D:Goto1:=D=ABS(-4.375+D):Goto1:LBI1:D=DN-O0=R=T+5.43:GOTO2:=N-O-1.872=R=T+7.93:D=D+2.5:GOTO2:=N-O-2.968=R=T+1:D=D-4.257:O=O-1.5145-0.025:=N-O-5=R=T+15:O+11.798:GOTO2:lbi2:P=:(N-O)2+D2-R