隧道程序_5800_V21版.xls

V2 V2 1 1正正式式版版 山山西西运运城城中中条条山山特特长长隧隧道道 2010071820100718 中条山隧道 隧道超欠挖5800版 1 主程序 R NTSSD Y 1 Lbl 1 5 DimZ 2 5800 S 3 Prog SUB0 定义所在线元数据库 4 1 P C P R 2HPR D 180 E 5 X X Y Y X I Y J 6 H Z 1 7 R Z 2 Z 2 Z 3 8 Prog SUB2 9 O W S K S 10 K S 11 OF Z 12 S W 13 Prog SUB3 14 Fix 5 O O 15 1 5145 0 O 16 Prog SUB4 17 SQRT Z 1 Z 2 B2 X 18 NO C Q X Z 2 A FO Z 2 Z 3 P 19 ClrMemory 20 Goto 1 2 SUB0 数据库子程序 Goto1 Lbl 1 IF S 7521 880 Then208 46 02 165 G 5415 966 O 3862016 416 U 486781 980 V 2800 P 2800 R 2105 914 H 1 Q Return IfEnd Lbl 1 IF S 10520 Then165 40 27 9 G 线元起点方位角 7521 880 O 线元起点里程 3859976 099 U 线元起点X 486523 474 V 线元起点Y 10 45 P 线元起点曲率半径 10 45 R 线元终点曲率半径 2998 120 H 线元起点至终点长度 0 Q Return IfEnd 3 正算子程序 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 4 反算子程序 SUB2 G 90 T Abs Y V cos T X U sin T W 0 Z Lbl 0 Prog SUB1 T QEW C WD L J Y cos L I X sin L Z IF Abs Z M And K C Then K M 2 2R P D K C I 100 QP O Return IfEnd IF K C And K N Then K M 2 2R P D K C J 100 QP O Return IfEnd IF K N Then D K C J 100 O Return IfEnd 圆心半径及偏离隧道中心线判断 SUB4 Z 0 Abs Z 4 375 B Z 0 And Z4 375 Z B Z 4 375 Z 4 375 B IF Z 1 O 0 And Z 1 O 10 Then Z 2 5 43 Z 2 B B Return IfEnd IF Z 1 O 1 872 Then Z 2 7 93 Z 2 B 2 5 B IF Z 1 O 2 968 And B 4 5611 Then Z 2 1 Z 2 B 4 257 B O 1 5145 0 025 O Return IfEnd IF Z 1 O 5 And B 4 5611 Then Z 2 15 Z 2 B B O 11 798 O Return IfEnd 1 新增两侧电缆槽附近隧道内轮廓线1米半径不能计算功能 现能全断面计算超欠 2 显示设计高程 3 显示所在圆心半径 4 修正由高程判断半径 1米半径与15米半径相接 处计算错误盲区 增加Z型5个变量 输入近似里程 定义所在线元数据库 输入实测XY坐标 输入实测高程 输入断面理论半径 二衬厚度 调用反算子程序 由反算两次调用正算子程序 得到桩号及离设计线桩距离 输出反算桩号 输出反算离设计线距离 为左偏 为右偏 将变量值另存 利于后面计算 调用高程计算子函数 输出设计高程保留5位小数 设计标高 1 5145 上段面圆心高程 调用条件关系运算子函数 得到实测点到圆心的距离 将实测点半径减理论半径即为超欠挖 显示所在圆心半径 清除记忆 平面曲线数据库 同时保存多个曲线时的指针 线元终点里程 线元起点方位 线元起点里程 线元起点X 线元起点Y 线元起点曲率半径 线元终点曲率半径 线元起点至终点长度 线型偏转 左偏 1 Q 右偏 1 Q 直线 0 Q 线元终点里程 线元终点里程 线元起点方位 线元起点里程 线元起点X 线元起点Y 线元起点曲率半径 线元终点曲率半径 线元起点至终点长度 线型偏转 左偏 1 Q 右偏 1 Q 直线 0 Q 竖曲线数据库 变坡点桩号 变坡点高程 前坡值 后坡值 半径 竖曲线类型 1 Q I1 1 Q 竖曲线起点桩号 竖曲线终点桩号 IF输入的桩号所在竖曲线位置 变坡点前坡位置段 IF输入的桩号所在竖曲线位置 竖曲线变坡点前段 IF输入的桩号所在竖曲线位置 竖曲线变坡点后段 IF输入的桩号所在竖曲线位置 变坡点后坡位置段 Z 主程序反算距设计线距离 注 左为 右为 根据偏离设计线的距离推算距离隧道中心线的距离 三种条件1 在设计线左侧2 在设计线右侧且不大于隧道中心线 位置3 在隧道中心线右侧 判断输入的高程所在的隧道位置及圆心半径1 prog XYZ DZ T Z H Z DZ Z 0 02D Goto0 Z Z 0 02D Goto0 LBI0 O Z 1 5145 D 0 D 4 375 D Goto1 D ABS 4 375 D Goto1 LBI1 D D N O 0 R T 5 4