5800P隧道施工放样程序第一种放样程序FY-01隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型，洞门明洞设计不一，这里只放置了暗洞内的内容。由于实际施工中里程位置及尺寸大小都经常自行变位，所以现场放样中要随时注意变动。FY-5800P主程序＂X0=＂？X：实测坐标X值＂Y0=＂？Y：实测坐标Y值＂Z0=＂？C：实测高程Z值Prog＂ZLS＂:转入直线里程反算子程序Prog＂SQX＂:转入竖曲线子程序xx→B:xx→Q:B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定IfL>45090AndL≤45125:ThenProg＂5b＂:IfEnd:IfL>45125AndL≤45135:ThenProg＂4a＂:IfEnd:IfL>45135AndL≤45330:ThenProg＂3a＂:Stop:IfEnd:IfL>45330AndL≤45345:ThenProg＂4a＂:IfEnd:IfL>45345AndL≤45383:ThenProg＂5b＂:IfEnd:IfL>45510AndL≤45540:ThenProg＂5b＂:IfEnd:IfL>45540AndL≤45550:ThenProg＂4a＂:IfEnd:IfL>45550AndL≤45650:ThenProg＂3a＂:Stop:IfEnd:IfL>45650AndL≤45660:ThenProg＂4a＂:IfEnd:IfL>45660AndL≤45680:ThenProg＂5b＂:IfEnd:IfL>46085AndL≤46100:ThenProg＂5c＂:IfEnd:IfL>46100AndL≤46110:ThenProg＂4c＂:IfEnd:IfL>46110AndL≤46275:ThenProg＂3a＂:Stop:IfEnd:IfL>46275AndL≤46285:ThenProg＂4b＂:IfEnd:IfL>46285AndL≤46310:ThenProg＂5b＂:IfEnd:Prog＂45DMJS＂:转入断面放样计算子程序Stop。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。ZLS-5800P子程序(直线段里程反算)313242.908→M:直线起点X坐标485714.351→N:直线起点Y坐标43263.493→Q:直线起点里程186°30＇41.37＂→T:直线起点方位角Pol(X-M,Y-N):这里的X、Y自动在主程序中提取J<0=>360+J→J:Rec(I,J-T):Q+I→L:这里反映是由小里程向大里程方向计算的结果存放在变量L里J-2.5→S:设计中线位于隧道中心线的左侧2.5米处,计算的偏中距存放在变量S里Cls:Fix3:＂KM=＂:里程标示＂DISP=＂:偏中距标示Locate7,1,L:显示计算的里程结果到第一行Locate10,2,S◢显示偏中距结果到第二行,负在左,正在右。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。SQX-5800P子程序(竖曲线设计高程计算)46150→A:竖曲线变坡点里程68.787→G:竖曲线变坡点高程30000→R:竖曲线半径13.86→E:竖曲线变坡点小里程方向的纵坡-9.7→F:竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上353.385→T竖曲线切线长5→DimZ:IfL≤A:自动由子程序ZLS中提取LThen-0.001E→Z[1]:高铁是千分比坡度,公路是百分比坡度,这里用的是高铁Else0.001F→Z[1]:高铁是千分比坡度,公路是百分比坡度,这里用的是高铁IfEnd:G+Abs(A-L)Z[1]→Z[2]:IfL≤A-T:ThenZ[2]→Z[4]:IfEnd:IfL>A-TAndL≤A:Then(L-A+T)2÷(2R)→Z[3]:IfE≤F:ThenZ[2]+Z[3]→Z[4]:ElseZ[2]-Z[3]→Z[4]:IfEnd:IfEnd:IfL>AAndL≤A+T:Then(A+T-L)2÷(2R)→Z[3]:IfE≤F:ThenZ[2]+Z[3]→Z[4]:ElseZ[2]-Z[3]→Z[4]:IfEnd:IfEnd:IfL>A+T:ThenZ[2]→Z[4]:IfEnd:Z[4]+2.43→Z[5]:将计算出来的设计高程（无横坡的）转换算到隧道圆心高度C-Z[5]→D:C值直接由主程序中提取,求算出实测点与圆心的高差关系Fix3:＂h+-=＂:表示实测点与圆心的高差关系Locate10,3,D◢设置在第三行显示,负在下,正在上。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。断面计算过程中定义的14个变量含义:B:进入断面放样工作,开挖或支护厚度(变数)R:断面净空半径与二衬厚度之和H:圆心到检修道的垂直高度E:二衬边缘边墙起点高到检修道的垂直高度F:检修道到边墙脚的垂直高度A:仰拱圆心到拱部圆心的垂直高度W:仰拱半径与衬砌厚度之和V:这里是设计拱墙喷砼厚度T:这里是设计仰拱喷砼厚度M:衬砌仰拱小半径N:边墙基础设计宽度U:拱部部分自检修道到拱部圆心位的夹角P:衬砌仰拱小半径所夹角度Q:仰拱开挖或支护厚度(变数)以下表格的内容就是建立数据子程序的(3A、4A、4B、4C、5B、5C)变量ⅢaⅣaⅣbⅣcⅤbⅤcB0~0.150~0.250~0.250~0.250~0.280~0.28T0.100.250.250.280.28R7.057.057.107....
