文档介绍：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子程序(直线段里程反算).908→M:→N:→Q:直线起点里程186°30'"→T:直线起点方位角Pol(X-M,Y-N):这里的X、Y自动在主程序中提取J<0=>360+J→J:Rec(I,J-T):Q+I→L:这里反映是由小里程向大里程方向计算的结果存放在变量L里J-→S:,计算的偏中距存放在变量S里Cls:Fix3:"KM=":里程标示"DISP=":偏中距标示Locate7,1,L:显示计算的里程结果到第一行Locate10,2,S◢显示偏中距结果到第二行,负在左,正在右。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。SQX-5800P子程序(竖曲线设计高程计算)46150→A:→G:竖曲线变坡点高程30000→R:→E:竖曲线变坡点小里程方向的纵坡-→F:竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,→T竖曲线切线长5→DimZ:IfL≤A:自动由子程序ZLS中提取LThen-→Z[1]:高铁是千分比坡度,公路是百分比坡度,→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]+→Z[5]:将计算出来的设计高程(无横坡的)转换算到隧道圆心高度C-Z[5]→D:C值直接由主程序中提取,求算出实测点与圆心的高差关系Fix3:"h+-=":表示实测点与圆心的高差关系Locate10,3,D◢设置在第三行显示,负在下,正在上。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。断面计算过程中定义的14个变量含义:B:进入断面放样工作,开