《5800隧道控制超挖欠挖程序.docx》由会员分享，可在线阅读，更多相关《5800隧道控制超挖欠挖程序.docx（3页珍藏版）》请在三一文库上搜索。
1、隧道超欠挖5800版1. 主程序(NTSSD-CQW)Lbl 1：5DimZ：（增加Z型5个变量）600S：（输入近似里程）Prog“SUB0”(定义所在线元数据库)1PC: (P-R)(2HPR) D:180E:“X=”？X：“Y=”？Y：XI：YJ：(输入实测XY坐标,)“H=”？ Z1: (输入实测高程)“R=”？ Z2: (输入断面理论半径)Prog“SUB2”：(调用反算子程序,由反算两次调用正算子程序)O+WS：“K=”：S“BIANJULI=”：Z(得到桩号及离中心桩距离)Abs(Z)B： (将变量值另存,利于后面计算)617.42C： (定义此段竖曲线变坡点桩号，也可？C：输入
2、)71.1D： (定义此段竖曲线此段竖曲线变坡点高程)1I： (定义此段竖曲线后坡点坡度)-0.6J： (定义此段竖曲线前坡点坡度)1500R： (定义此段竖曲线变坡半径值)-1Q： (判断是凸凹曲线类型, -1Q：I1Q )240L： (定义此段竖曲线曲线长)120T： (定义此段竖曲线切线长)0.48E： (定义此段竖曲线外距)497.42M： (定义此段竖曲线变坡曲线起点桩号)737.42N： (定义此段竖曲线变坡曲线终点桩号)SK： (将变量值另存,利于后面计算)Prog“SUB3”： (调用高程计算子函数)Fix 3： （输出保留3位小数）1.5+ZZ： (将路面设计值加减设计值得到
3、开挖圆心高程)开平方根(Z1-Z)2+B2)X：(得到实测点到圆心的距离)“CQW=”:X-Z2A：(将实测点半径减理论半径即为超欠挖) ClrMemory:Goto 12. SUB0 数据库子程序Goto1 同时保存多个曲线时的指针Lbl 1：IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEndLbl 1：IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X
4、）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEnd.为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件3. 正算子程序(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+
5、QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y：G+QEW(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+QPZ: Return:IfEndIF K C And KN :Then (K-M)2/(2R) P:D+(K-C)J/100+QPZ: Return:IfEndIF K N: Then D+(K-C)J/100Z: Return:IfEnd经反复核对的，绝对能用，5800P上运行要4秒出结果。