5800隧道控制超挖欠挖程序(1).docx

隧道超欠挖 5800 版 1. 主程序 (NTSSD--CQW Lbl 1 ： 5 → DimZ ：（增加 Z 型 5 个变量） → S ：（输入近似里程） Prog “ SUB0”↙ ( 定义所在线元数据库 1 ÷ P → C: (P-R ÷(2HPR → D:180 ÷∏ → E: “ X=”？X ：“ Y=”？Y ：X →I ：Y→J： ( 输入实测 XY 坐标 , “ H=”？ →Z[1]: ( 输入实测高程 “ R=”？ → Z[2]: ( 输入断面理论半径 Prog “ SUB2”： ( 调用反算子程序 ,由反算两次调用正算子程序 O+W → S： “ K=”：S ◢“ BIANJULI= ” ： Z ◢ ( 得到桩号及离中心桩距离 Abs(Z → B ： ( 将变量值另存 , 利于后边计算 617.42 → C： ( 定义此段竖曲线变坡点桩号，也可？ C：输入 71.1 → D ： ( 定义此段竖曲线此段竖曲线变坡点高程 1 → I ： ( 定义此段竖曲线后坡点坡度 -0.6 → J ： ( 定义此段竖曲线前坡点坡度 1500 → R ： ( 定义此段竖曲线变坡半径值 -1 →Q： ( 判断是凸凹曲线种类 , -1 → Q ：I 1 →Q 240 → L ： ( 定义此段竖曲线曲线长 120 → T ： ( 定义此段竖曲线切线长 0.48 → E： ( 定义此段竖曲线外距 497.42 → M ： ( 定义此段竖曲线变坡曲线起点桩号 737.42 → N ： ( 定义此段竖曲线变坡曲线终点桩号 S → K ： ( 将变量值另存 ,利于后边计算 Prog “ SUB3”： ( 调用高程计算子函数 Fix 3 ： （输出保存 3 位小数） 1.5+Z → Z ： ( 将路面设计值加减设计值得到开挖圆心高程 开平方根 ((Z[1]-Z 2+B 2→ X ： ( 得到实测点到圆心的距离 “ CQW=” :X -Z[2] → A ：◢ ( 将实测点半径减理论半径即为超欠挖 ClrMemory:Goto 1 2. SUB0 数据库子程序 Goto1 ↙ 同时保存多个曲线时的指针 Lbl 1 ： IF S*** （线元终点里程） :Then*** → G （线元起点方位角） :*** → O （线元 起点里程） :*** → U （线元起点 X ） :*** → V （线元起点 Y ） :*** → P （线元起点曲率半 径） :*** → R （线元终点曲率半径） : *** → H （线元起点至终点长度）： 0 或 1 、 - 1 → Q ： Return:IfEnd ↙ Lbl 1 ： IF S*** 起点里程） :***  （线元终点里程） :Then*** → G （线元起点方位角） :*** → O （线元 → U （线元起点 X ） :*** → V （线元起点 Y ） :*** → P （线元起点曲率半 径） :*** → R （线元终点曲率半径） : *** → H （线元起点至终点长度）： 0 或 1 、 - 1 → Q ： Return:IfEnd .. 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个 Lbl ，每增加一个工 程增加一个文件 正算子程序 (SUB1 0.1739274226 → A ： 0.3260725774 → B ： 0.0694318442 → K ： 0.3300094782 →L： 1-L →F： 1-K → M ↙ U+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+90 → F ： X+Zcos （ F ）→ X ： Y+Zsin （ F ）→ Y 反算子程序 (SUB2 G-90 → T ： Abs((Y-Vcos(T-(X-Usin(T → W ： 0 → Z ： Lbl 0 ： Prog SUB1 ： T+QEW(C+WD → L ： (J-Ycos （ L ） -(I-Xsin （ L ）→ Z ： IF Abs （ Z ） 0.000001 ： Then0 → Z:Prog SUB1 :(J-Y ÷sin （ F）→ Z ↙ Else W+Z → W:Goto4:IfEnd 5 高程计算子程序 (SUB3 IF K ≤ M: Then D+(K -CI/100 → Z: Return:IfEnd