卡西欧5800隧道放样程序.docx

1、卡西欧5800隧道放样程序5800P隧道施工放样程序第一种放样程序 FY-01隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型，洞门明洞设计不一，这里只放置了暗洞内的内容。由于实际施工中里程位置及尺寸大小都经常自行变位，所以现场放样中要随时注意变动。FY-5800P 主程序X0=？X： 实测坐标X值Y0=？Y： 实测坐标Y值Z0=？C： 实测高程Z值ProgZ LS: 转入直线里程反算子程序ProgSQX: 转入竖曲线子程序xxB:xxQ: B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定If L45090 And L45125

2、: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:IfEn

3、d: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: 转入断面放样计算

4、子程序Stop。Z LS-5800P 子程序(直线段里程反算)313242.908M: 直线起点X坐标485714.351N: 直线起点Y坐标43263.493Q: 直线起点里程1863041.37T: 直线起点方位角Pol(X-M,Y-N): 这里的X、Y自动在主程序中提取J 360+JJ:Rec(I,J-T):Q+IL: 这里反映是由小里程向大里程方向计算的结果存放在变量L里J-2.5S: 设计中线位于隧道中心线的左侧2.5米处,计算的偏中距存放在变量S里Cls:Fix 3:KM=: 里程标示DISP=: 偏中距标示Locate 7,1,L : 显示计算的里程结果到第一行Locate 10

5、,2,S 显示偏中距结果到第二行,负在左,正在右。SQX-5800P 子程序(竖曲线设计高程计算)46150A: 竖曲线变坡点里程68.787G: 竖曲线变坡点高程30000R: 竖曲线半径13.86E: 竖曲线变坡点小里程方向的纵坡-9.7F: 竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上353.385T 竖曲线切线长5DimZ:If LA: 自动由子程序Z LS中提取LThen -0.001EZ1: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁Else 0.001FZ1: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁IfEnd:G+Abs(A-L)Z1Z2:

6、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:Z4+2.43Z5: 将计算出来的设计高程（无横坡的）转换算到隧道圆心高度C-Z5D: C值直接由主程序中提取,求算出实测点与圆心的高差关系Fix 3:h+-=: 表示实测点与圆心的高差

7、关系Locate 10,3,D 设置在第三行显示,负在下,正在上。断面计算过程中定义的14个变量含义:B: 进入断面放样工作,开挖或支护厚度(变数)R: 断面净空半径与二衬厚度之和H: 圆心到检修道的垂直高度E: 二衬边缘边墙起点高到检修道的垂直高度F: 检修道到边墙脚的垂直高度A: 仰拱圆心到拱部圆心的垂直高度W: 仰拱半径与衬砌厚度之和V: 这里是设计拱墙喷砼厚度T: 这里是设计仰拱喷砼厚度M: 衬砌仰拱小半径N: 边墙基础设计宽度U: 拱部部分自检修道到拱部圆心位的夹角P: 衬砌仰拱小半径所夹角度Q: 仰拱开挖或支护厚度(变数)以下表格的内容就是建立数据子程序的(3A、4A、4B、4C、

8、5B、5C)变量aabcbcB00.1500.2500.2500.2500.2800.28T0.100.250.250.280.28R7.057.057.107.107.157.20H2.132.132.132.132.132.13E0.500.500.500.500.500.50F1.271.501.501.501.501.50A12.98112.98112.98112.98112.98112.981W17.6117.7117.7617.7617.8117.86V0.150.250.250.250.280.28M2.832.882.882.932.98N0.80.550.550.520.50

9、U184018184018184018184018184018P550047550047550047550047550047Q00.1000.2500.2500.2800.28。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表示边墙的斜率R

10、ec(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-Z6 And Abs(S)Z9: 表示下半部边墙部分Then BQ+-=： 表示边墙实测与设计差Locate 10，4，Abs(S)-Z11+( Abs(D)-Z12)Z10 差值显示到第四行上,负为欠,正为超IfEnd：If Abs(S)Z9 And Abs(

11、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)O+T:Then Z2Z2:IfEnd:If

12、 LO-T And LO:Then (L-O+T)2(2R)Z3: If EF:Then Z2+Z3Z2:Else Z2-Z3Z2:IfEnd: IfEnd: If LO And LO+T:Then (O+T-L)2(2R)Z3: If EF:Then Z2+Z3Z2:Else Z2-Z3Z2:IfEnd: IfEnd: Z2+2.43H: 2.43表示内轨到圆心的垂直高度“READ=”?K: 前视读数(全站仪观测的高差之相反数,水准仪的前视的读数值)Fix 3:“GCCZ+-=”: 计算出要量取的高程差值Locate 10,4,A+B-K-H-P 高程差值显示在第四行,负低于设计,正高于设计

13、If K=0: 以K为0值作为本站结束标志,否则继续下一点观测计算Then Stop:Else Goto 0:IfEnd这个程序主要要求必须先知道里程才能计算。K输入0后仍会先算出结果才能真正结束。第三种放样程序 FY-03QXJS-000 主程序Fix 3:Deg:Lbl 4:“1.SZ=NE”:“2.NE=SZ”:“1,2=”?Q:“LICHENG”?S:Prog “QXJSSUB0”Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEndLbl 1:“OUT JL=”?Z:“OUT JD=”?G:Prog“QXJSSUB1”:“XZB

14、=”:NN“YZB=”:EE“QXFWJ=”:FF:FDMSGoto 4Lbl 2:“XZB=”?B:“YZB=”?C:BN:CE:Prog“QXJSSUB2”:“LICHENG=”:SS“OUT JL=”:ZaZ“CDG=”?G:“GC=”:G-(78.7156-0.0058(7900-S)+2.27)D?R:“R+-=”:(Z2+D2)-RGoto 4QXJSSUB0 白石坪2#出口数据子程序Goto 1:Lbl 1:If S3270.353:Then 7913.106U: 2120.363V: 2850.353O: 90-48-35.26A: 420L: 10(45P:5500R:Ret

15、urn:IfEndIf S4976.210Then 7901.826U2540.185V: 3270.353O: 92-59-50.86A: 1705.857L: 5500P:5500R:Return:IfEndIf S5396.210Then 7551.980U4202.804V: 4976.210O: 110-46-05.09A: 420L: 5500P:10(45R:Return:IfEndIf S6180.470Then 7393.1168U4591.5709V: 5396.210O: 112-57-20.71A: 784.26L: -10(45P:-10(45R:Return:IfE

16、ndIf S6600.470Then 7087.2396U5313.7225V: 6180.470O: 112-57-20.71A: 420L: -10(45P: 5500R:Return:IfEndIf S7132.315Then 6928.3767U5702.4894V: 6600.470O: 110-46-05.15A: 531.845L: -5500P:-5500R:Return:IfEndIf S0.0001:Then Goto 1:IfEndLbl 2:0Z:Prog “QXJSSUB1”:(C-E)/sin(F+90)Z:Return第四种放样程序 FY-04中桩坐标正反算程序根

17、据4800P源程序改写5800PFY 主程序Cls:Fix 3:“1.SZ = XY”:“2.XY = SZ”:?N:“X0”? U：线元起点X坐标“Y0”? V：线元起点Y坐标“S0”? O：线元起点桩号“F0”? G：线元起点方位角“LS”? H：线元起点长度“R1”? P：线元起点半径“R2”? R：线元终点半径“-0+”?Q：线元转向方向（直线为0，左为-1，右为1）1/PC:(P-R)/(2HPR)D:180/E:If N=1: Then Goto 1: Else Goto 2:IfEnd:Lbl 1:“S=”?S: 里程“Z=”?Z: 偏移量Abs(S-O)W:Prog “ZS”:

18、Cls:“Xp=”:“Yp=”:Locate 7,1,X:Locate 7,2,Y“FWJ=”:F-90F:FDMSGoto 1:Lbl 2:“Xp”?X:XI:“Yp”?Y:YJ:Prog “FS”:O+WS:Cls:“S”:“Z”:Locate 10,1,S:Locate 10,2,ZGoto 2ZS 正算子程序0.1739274226A:0.3260725774B:0.0694318442K:0.3300094782L:1-LF:1-KM:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+

19、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)+90F:X+Zcos(F)X:Y+Zsin(F)YFS 反算子程序G-90T:Abs(Y-V)cos(T)-(X-U)sin(T)W:0Z:Lbl 0:Prog “ZS”:T+QEW(C+WD)L:(J-Y)cos(L)-(I-X)sin(L)Z:If Abs(Z) 10(-6):Then Goto 1:Else W+ZW:IfEnd:Goto 0:Lbl 1:0Z:Prog “ZS”:(J-Y)/sin(F)Z