word5800P隧道施工放样程序第一种放样程序 FY-01隧道情况：我队四个中小隧道全部位于直线段，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型，洞门明洞设计不一，这里只放置了暗洞的容。由于实际施工中里程位置与尺寸大小都经常自行变位，所以现场放样中要随时注意变动。FY-5800P主程序X0=？X： 实测坐标X值Y0=？Y： 实测坐标Y值Z0=？C： 实测高程Z值ProgZ LS: 转入直线里程反算子程序ProgSQX: 转入竖曲线子程序xxB:xxQ: B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定If L45090 And L45125:Then Prog5b:IfEnd:If L45125 And L45135:Then Prog4a:IfEnd:If L45135 And L45330:Then Prog3a:Stop:IfEnd:If L45330 And L45345:Then Prog4a:IfEnd:If L45345 And L45383:Then Prog5b:IfEnd:If L45510 And L45540:Then Prog5b:IfEnd:If L45540 And L45550:Then Prog4a:IfEnd:If L45550 And L45650:Then Prog3a:Stop:IfEnd:If L45650 And L45660:Then Prog4a:IfEnd:If L45660 And L45680:Then Prog5b:IfEnd:If L46085 And L46100:Then Prog5c:IfEnd:If L46100 And L46110:Then Prog4c:IfEnd:If L46110 And L46275:Then Prog3a:Stop:IfEnd:If L46275 And L46285:Then Prog4b:IfEnd:If L46285 And L46310:Then Prog5b:IfEnd:Prog45DMJS: 转入断面放样计算子程序Stop。Z LS-5800P子程序(直线段里程反算)M: 直线起点X坐标N: 直线起点Y坐标Q: 直线起点里程1863041.37T: 直线起点方位角Pol(X-M,Y-N): 这里的X、Y自动在主程序中提取J 360+JJ:Rec(I,J-T):Q+IL: 这里反映是由小里程向大里程方向计算的结果存放在变量L里S: 设计中线位于隧道中心线的左侧2.5米处,计算的偏中距存放在变量S里Cls:Fix 3:KM=: 里程标示DISP=: 偏中距标示Locate 7,1,L : 显示计算的里程结果到第一行Locate 10,2,S显示偏中距结果到第二行,负在左,正在右。SQX-5800P 子程序(竖曲线设计高程计算)46150A: 竖曲线变坡点里程G: 竖曲线变坡点高程30000R: 竖曲线半径E: 竖曲线变坡点小里程方向的纵坡F: 竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上T 竖曲线切线长5DimZ:If LA: 自动由子程序Z LS中提取LZ1: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁Z1: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁IfEnd:G+Abs(A-L)Z1Z2:If LA-T:Then Z2Z4:IfEnd:If LA-T And LA:Then (L-A+T)2(2R)Z3:If EF:Then Z2+Z3Z4:Else Z2-Z3Z4:IfEnd:IfEnd:If LA And LA+T:Then (A+T-L) 2(2R)Z3:If EF:Then Z2+Z3Z4:Else Z2-Z3Z4:IfEnd:IfEnd:If LA+T:Then Z2Z4:IfEnd:Z5: 将计算出来的设计高程无横坡的转换算到隧道圆心高度C-Z5D: C值直接由主程序中提取,求算出实测点与圆心的高差关系Fix 3:h+-=: 表示实测点与圆心的高差关系Locate 10,3,D设置在第三行显示,负在下,正在上。断面计算过程中定义的14个变量含义:B: 进入断面放样工作,开挖或支护厚度(变数)R: 断面净空半径与二衬厚度之和H: 圆心到检修道的垂直高度E: 二衬边缘边墙起点高到检修道的垂直高度F: 检修道到边墙脚的垂直高度A: 仰拱圆心到拱部圆心的垂直高度W: 仰拱半径与衬砌厚度之和V: 这里是设计拱墙喷砼厚度T: 这里是设计仰拱喷砼厚度M: 衬砌仰拱小半径N: 边墙根底设计宽度U: 拱部局部自检修道到拱部圆心位的夹角P: 衬砌仰拱小半径所夹角度Q: 仰拱开挖或支护厚度(变数)以下表格的容就是建立数据子程序的(3A、4A、4B、4C、5B、5C)变量aabcbcBTRHEFAWVMNU184018184018184018184018184018P550047550047550047550047550047Q。45DMJS-5800P15DimZ:Pol(Abs(S), D):JZ1:IZ2:(R2-(H-E)2)Z3:sin-1(H-E)/R)Z4:Rec(R+V,Z4): IZ5:JZ6:Rec(R-M,U): IZ15: 表示小圆心到大圆心的水平距离JZ7: 表示小圆心到大圆心的垂直高度H+FZ8:I+(Abs(M+T)2-( Z8-Z7)2)Z9:(Z5-Z9-N)/(H-Z6+F) Z10: Z10表示边墙的斜率Rec(R+B,Z4):IZ11:JZ12:Rec(M+T,U+P):I+Z15Z13: 表示大圆水平边缘J+Z7Z14: 表示大圆垂直边缘If Z1-Z4： 表示上半部圆局部Then R+-=： 表示上半部圆局部实测与设计差Locate 10，4,Z2-R-B差值显示到第四行上,负为欠,正为超IfEnd:If D-H-F And D-Z6And Abs(S)Z9:表示下半部边墙局部Then BQ+-=： 表示边墙实测与设计差Locate 10，4，Abs(S)-Z11+( Abs(D)-Z12)Z10差值显示到第四行上,负为欠,正为超IfEnd：If Abs(S)Z9 And Abs(S)Z9+N And DZ13 And Abs(S)Z9 And D-Z6: Then YG+-=: 表示仰拱实测与设计差Locate 10,4, Abs(D)-Z7-(Abs(M+Q)2-(Abs(S)-Z15)2)差值显示到第四行上,负为欠,正为超IfEnd:If Abs(S)Z13 And D-H-F And D-Z6:表示下半部边墙局部Then BQ+-=： 表示边墙实测与设计差Locate 10，4，Abs(S)-Z11+( Abs(D)-Z12)Z10差值显示到第四行上,负为欠,正为超IfEnd：If D-H And Abs(S)Z7: 表示