隧道坐标放样程序

隧道坐标放样程序隧道施工中，必须保证测量精度。同时因隧道内测量条件比较复杂，要求放样速度要快本程序在保证精度的基础上确保放样速度快。Y-SDCLCX行号程序说明1“1，2，3，4”←提示有几段计算、（←按EXE键）2Lb10:"MS"?A←MS显示选择计算段落，（1、2、3、4、如下介绍）3IfA=1:ThenGoto1:IfEnd←1：右线第一圆曲线4IfA=2:ThenGoto2:IfEnd←2：右线第一直线5IfA=3:ThenGoto3:IfEnd←3：右线第二圆曲线6IfA=4:ThenGoto4:IfEnd←4：右线第二直线7Lb11:"X"?X:"Y"?Y:"Z"?C←在MS选择了1便进行第一段圆曲线计算输入测点三维坐标8X-3972.928→D:Y-(-2118.2249)→E←测点与圆心坐标的增量9POl(D,E):J＜0=＞J+360→J←圆心至测点方位角，并保证方位角在0-360之间10109°51′56.85″-J→G←圆心至圆曲线起点的方位角与上式之差（对应圆心角）11"K=":0.017453292×G×3300+63027.554→K◢测点对应里程（0.017453292=π÷180）12"N=":I-3305.37→N◢偏距（右线交点1左转，半径3300，设计线右偏5.37）13Prog"BMY":"P=":C-H→P◢调用竖曲线程序，计算测点对应里程的设计高程、P为实测点与设计高的高差14Prog"CQD"◢调用开挖程序，使用到变量N,P15IfA=1:ThenGoto1:Goto1:IfEnd←循环计算（圆曲线）第一段16Lb12:"X"?X:"Y"?Y:"Z"?C←在MS选择了2便进行第二段直线计算、输入测点三维坐标。17X-3156.806→D:Y-1084.807→E←测点与直线段起点（YZ点）中线坐标的增量18POI(D,E):J＜0=＞J+360→J←起点至测点方位角，并保证方位角在0-360之间19J-14°17′40.6″→G←起点至测点方位角与起点至下一交点方位角之差20"K=":63348.431+cosG×I→K◢三角函数求测点里程21"N=":sinG×I→N◢三角函数求偏距（左﹣右﹢）22Prog"BMY":"P=":C-H→P◢调用竖曲线程序，计算测点对应里程的设计高程23Prog"CQD"◢调用开挖程序，使用到变量N,P24IfA=2:ThenGoto2:Goto2:IfEnd←循环计算（直线段）第二段25Lb13:"X"?X:"Y"?Y:"Z"?C←在MS选择了3便进行圆曲线计算，输入测点三维坐标。26X-2741.021→D:Y-3555.265→E←测点与圆心坐标的增量27POI(D,E):J＜0=＞J+360→J←圆心至测点方位角，并保证方位角在0-360之间28J-284°17′40.6″→G←圆心至圆曲线中点的方位角与上式之差（对应圆心角）29"K=":0.017453292×G×2502+63555.495→K◢测点对应里程（0.017453292=π÷180）30"N=":2496.63-I→N◢偏距（右线交点2右转，半径2502，设计中线右偏5.37）31Prog"BMY":"P=":C-H→P◢调用竖曲线程序，计算测点与对应里程的设计高程32Prog"CQD"◢调用开挖程序，使用到变量N,P33IfA=3:ThenGoto3:Goto3:IfEnd←循环计算（圆曲线）第三段34Lb14:"X"?X:"Y"?Y:"Z"?C←在MS选择4便进行直线段计算，输入测点三维坐标。35X-4665.716→D:Y-1965.073→E←测点与直线段起点（YZ点）中线坐标的增量36POI(D,E):J＜0=＞J+360→J←起点至测点方位角，并保证方位角在0-360之间37J-50°26′10.8″→G←起点至测点方位角与起点至下一交点方位角之差38"K="65133.7361+cosG×I→K◢三角函数求测点里程39Prog“DATA”←按设计自动选择开挖断面尺寸计算，不需时刻记着开挖断面的变化。40"N=":sinG×I→N◢三角函数求偏距（左﹣右﹢）41Prog"BMY":"P=":C-H→P◢调用竖曲线程序，计算测点与对应里程的设计高程42Prog"CQD"◢调用开挖程序，使用到变量N,P43IfA=4:ThenGoto4:Goto0:IfEnd←循环计算（直线段）第四段说明；本程序是一种新的尝试在不改变原来计算方法的基础上，增加了程序语言的调用，使得在隧道测量中更简捷，提高了测量速度，打开计算机的程序选择测量线路在何种曲线内（按隧道掘进顺序分、1圆曲线段、2直线段、3圆曲线段、4直线段），还自动选择各类围岩开挖尺寸。防止前后测量断面时还要调换数据。在输入三维坐标后，计算机马上计算出K里程、P高差、N左右、S超欠。曹智勇编写2013，1，6竖曲线段高程计算子程序BMY行号程序说明1IfK＜63565.55:Then282.821-(63750-K)×0.0053393→H:IfEnd←交点前直线段高程计算2IfK＜63750AndK＞63565.55:Then282.821-(K-63565.55)²÷31000-0.0053393×(63750-K)→H:IfEnd←交点前竖曲线段高程计算3IfK＜63934.45AndK＞63750:Then282.821-(K-63934.45)²÷31000-0.0195×(K-63750)→H:IfEnd←交点后竖曲线段高程计算4IfK＜65660AndK＞63934.45:Then282.821-(K-63750)×0.0195→H:IfEnd←交点后直线段高程计算、这里65660里程是根据隧道进出口各施工一半而定的5"H=":H◢显示计算结果隧道坐标放样程序隧道施工中，必须保证测量精度。同时因隧道内测量条件比较复杂，要求放样速度要快本程序在保证精度的基础上确保放样速度快。Z-SDCLCX行号程序说明1“1，2，3”←提示有几段计算、（←段落记号可按EXE键取得）2Lb10:"MS"?A←MS显示选择计算段落，（1、2、3、如下介绍）3IfA=1:ThenGoto1:IfEnd←1：右线第一直线4IfA=2:ThenGoto2:IfEnd←2：右线第一圆曲线5IfA=3:ThenGoto3:IfEnd←3：右线第二直线16Lb11:"X"?X:"Y"?Y:"Z"?C←在MS选择了1便进行第一段直线计算、输入测点三维坐标。17X-2967.0128→D:Y-999.5667→E←测点与直线段起点（YZ点）中线坐标的增量18POI(D,E):J＜0=＞J+360→J←起点至测点方位角，并保证方位角在0-360之间19J-14°17′40.6″→G←起点至测点方位角与起点至下一交点方位角之差20"K=":63141.521+cosG×I→K◢三角函数求测点里程21"N=":sinG×I→N◢三角函数求偏距（左﹣右﹢）22Prog"BMZ":"P=":C-H→P◢调用竖曲线程序，计算测点对应里程的设计高程23Prog"CQD"◢调用开挖程序，使用到变量N,P24IfA=1:ThenGoto1:Goto1:IfEnd←循环计算（直线段）第一段25Lb12:"X"?X:"Y"?Y:"Z"?C←在MS选择了2便进行圆曲线计算，输入测点三维坐标。26X-2755.661→D:Y-3532.165→E←测点与圆心坐标的增量27POI(D,E):J＜0=＞J+360→J←圆心至测点方位角，并保证方位角在0-360之间28J-284°12′55.81″→G←圆心至圆曲线中点的方位角与上式之差（对应圆心角）29"K=":0.017453292×G×2501+63562.031→K◢测点对应里程（0.017453292=π÷180）30"N=":2506.37-I→N◢偏距（右线交点2右转，半径2502，设计中线右偏5.37）31Prog"BMZ":"P=":C-H→P◢调用竖曲线程序，计算测点与对应里程的设计高程32Prog"CQD"◢调用开挖程序，使用到变量N,P33IfA=2:ThenGoto2:Goto2:IfEnd←循环计算（圆曲线）第二段34Lb13:"X"?X:"Y"?Y:"Z"?C←在MS选择3便进行直线段计算，输入测点三维坐标。35X-4687.879→D:Y-1935.786→E←测点与直线段起点（YZ点）中线坐标的增量36POI(D,E):J＜0=＞J+360→J←起点至测点方位角，并保证方位角在0-360之间37J-50°26′12.6″→G←起点至测点方位角与起点至下一交点方位角之差38"K="65139.665+cosG×I→K◢三角函数求测点里程39"N=":sinG×I→N◢三角函数求偏距（左﹣右﹢）40Prog"BMZ":"P=":C-H→P◢调用竖曲线程序，计算测点与对应里程的设计高程41Prog"CQD"◢调用开挖程序，使用到变量N,P42IfA=3:ThenGoto3:Goto0:IfEnd←循环计算（直线段）第三段竖曲线段高程计算子程序BMZ行号程序说明1IfK＜63565.55:Then282.821-(63750-K)×0.0052938→H:IfEnd←求前直线段高程2IfK＜63750AndK＞63565.55:Then282.821-(K-63565.55)²÷31000-0.0052938×(63750-K)→H:IfEnd←求交点前竖曲线段高程3IfK＜63934.45AndK＞63750:Then282.821-(K-63934.45)²÷31000-0.0188×(K-63750)→H:IfEnd←求交点后竖曲线高程4IfK＜65280AndK＞63934.45:Then282.821-(K-63750)×0.0188→H:IfEnd←求交点后直线段高程、这里65280里程是随意设置，满足进口段一半的要求5"`H=":H◢显示计算结果第&P页，共&N页