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： (定义此段竖曲
2、线变坡点桩号，也可？C ：输入)71.1D： (定义此段竖曲线此段竖曲线变坡点高程)1I： (定义此段竖曲线后坡点坡度)-0.6J： (定义此段竖曲线前坡点坡度 )1500R： (定义此段竖曲线变坡半径值)-1Q： (判断是凸凹曲线类型, -1Q：I1Q )240L： (定义此段竖曲线曲线长)120T： (定义此段竖曲线切线长)0.48E： (定义此段竖曲线外距 )497.42M： (定义此段竖曲线变坡曲线起点桩号)737.42N： (定义此段竖曲线变坡曲线终点桩号)SK： (将变量值另存 ,利于后面计算)Prog“SUB3”： (调用高程计算子函数)Fix 3： （输出保留 3 位小数）1.
3、5+ZZ： (将路面设计值加减设计值得到开挖圆心高程)(Z1-Z)2+B2)X：(得到实测点到圆心的距离 )“CQW=”:X-Z2A：(将实测点半径减理论半径即为超欠挖) ClrMemory:Goto 12. SUB0 数据库子程序Goto1 同时保存多个曲线时的指针Lbl 1：IF S 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 秒出结果。
