《隧道超欠挖5800版：总结 计划 汇报 设计 可编辑》由会员分享，可在线阅读，更多相关《隧道超欠挖5800版：总结 计划 汇报 设计 可编辑（2页珍藏版）》请在金锄头文库上搜索。
1、隧道超欠挖5800版1.主程序(NTSSD-CQW)Lbl1：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：输入)71.1D：(定义
2、此段竖曲线此段竖曲线变坡点高程)1I：(定义此段竖曲线后坡点坡度)-0.6J：(定义此段竖曲线前坡点坡度)1500R：(定义此段竖曲线变坡半径值)-1Q：(判断是凸凹曲线类型,-1Q：I1Q)240L：(定义此段竖曲线曲线长)120T：(定义此段竖曲线切线长)0.48E：(定义此段竖曲线外距)497.42M：(定义此段竖曲线变坡曲线起点桩号)737.42N：(定义此段竖曲线变坡曲线终点桩号)SK：(将变量值另存,利于后面计算)Prog“SUB3”：(调用高程计算子函数)Fix3：（输出保留3位小数）1.5+ZZ：(将路面设计值加减设计值得到开挖圆心高程)(Z1-Z)2+B2)X：(得到实测点到
3、圆心的距离)“CQW=”:X-Z2A：(将实测点半径减理论半径即为超欠挖)ClrMemory:Goto12.SUB0数据库子程序Goto1同时保存多个曲线时的指针Lbl1：IFS*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）:*H（线元起点至终点长度）：0或1、-1Q：Return:IfEnd.为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件3.正算子程序(SUB1)0.1739274226A：0.3260725774B：0.0
4、694318442K：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+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：Lbl0：ProgSUB1：T+QEW(C+WD)L：(J-Y)cos（L）-(I-X)sin（L）Z：IFAbs（Z）MAndKC:Then(K-M)2/(2R)P:D+(K-C)I/100+QPZ:Return:IfEndIFKCAndKN:Then(K-M)2/(2R)P:D+(K-C)J/100+QPZ:Return:IfEndIFKN:ThenD+(K-C)J/100Z:Return:IfEnd经反复核对的，绝对能用，5800P上运行要4秒出结果。
