卡西欧5800隧道放样程序

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

2、g5b:IfEnd:If L>45125 And L45135:Then Prog4a:IfEnd:If L>45135 And L45330:Then Prog3a:Stop:IfEnd:If L>45330 And L45345:Then Prog4a:IfEnd:If L>45345 And L45383:Then Prog5b:IfEnd:If L>45510 And L45540:Then Prog5b:IfEnd:If L>45540 And L45550:Then Prog4a:IfEnd:If L>45550 And L45650:Th

3、en Prog3a:Stop:IfEnd:If L>45650 And L45660:Then Prog4a:IfEnd:If L>45660 And L45680:Then Prog5b:IfEnd:If L>46085 And L46100:Then Prog5c:IfEnd:If L>46100 And L46110:Then Prog4c:IfEnd:If L>46110 And L46275:Then Prog3a:Stop:IfEnd:If L>46275 And L46285:Then Prog4b:IfEnd:If L>46285 An

4、d L46310:Then Prog5b:IfEnd:Prog45DMJS: 转入断面放样计算子程序Stop。Z LS-5800P 子程序(直线段里程反算)313242.908M: 直线起点X坐标485714.351N: 直线起点Y坐标43263.493Q: 直线起点里程186°3041.37T: 直线起点方位角Pol(X-M,Y-N): 这里的X、Y自动在主程序中提取J<0 => 360+JJ:Rec(I,J-T):Q+IL: 这里反映是由小里程向大里程方向计算的结果存放在变量L里J-2.5S: 设计中线位于隧道中心线的左侧2.5米处,计算的偏中距存放在变量S里Cls:

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

6、是高铁Else 0.001FZ1: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁IfEnd:G+Abs(A-L)Z1Z2:If LA-T:Then Z2Z4:IfEnd:If L>A-T And LA:Then (L-A+T)2÷(2R)Z3:If EF:Then Z2+Z3Z4:Else Z2-Z3Z4:IfEnd:IfEnd:If L>A And LA+T:Then (A+T-L) 2÷(2R)Z3:If EF:Then Z2+Z3Z4:Else Z2-Z3Z4:IfEnd:IfEnd:If L>A+T:Then Z2Z4:IfEnd:Z4+2.

7、43Z5: 将计算出来的设计高程（无横坡的）转换算到隧道圆心高度C-Z5D: C值直接由主程序中提取,求算出实测点与圆心的高差关系Fix 3:h+-=: 表示实测点与圆心的高差关系Locate 10,3,D 设置在第三行显示,负在下,正在上。断面计算过程中定义的14个变量含义:B: 进入断面放样工作,开挖或支护厚度(变数)R: 断面净空半径与二衬厚度之和H: 圆心到检修道的垂直高度E: 二衬边缘边墙起点高到检修道的垂直高度F: 检修道到边墙脚的垂直高度A: 仰拱圆心到拱部圆心的垂直高度W: 仰拱半径与衬砌厚度之和V: 这里是设计拱墙喷砼厚度T: 这里是设计仰拱喷砼厚度M: 衬砌仰拱小半径N:

8、边墙基础设计宽度U: 拱部部分自检修道到拱部圆心位的夹角P: 衬砌仰拱小半径所夹角度Q: 仰拱开挖或支护厚度(变数)以下表格的内容就是建立数据子程序的(3A、4A、4B、4C、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.

9、7117.7617.7617.8117.86V0.150.250.250.250.280.28M2.832.882.882.932.98N0.80.550.550.520.50U18°401818°401818°401818°401818°4018P55°004755°004755°004755°004755°0047Q00.1000.2500.2500.2800.28。45DMJS-5800P15DimZ:Pol(Abs(S), D):JZ1:IZ2:(R2-(H-E)2)Z3:sin-1(H

10、-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 差值显示到第四行上,负为欠,正为超IfEn

11、d: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(S)<Z9+N And D<-H: Then QJ+-=:Locate 10，4,-(D+H+F)IfEnd:If Abs(S)>Z13 And Abs(S)<Z9 And D<-Z6: Then YG+-=: 表示仰拱实测与设计差Locate 10

12、,4, Abs(D)-Z7-(Abs(M+Q)2-(Abs(S)-Z15)2) 差值显示到第四行上,负为欠,正为超IfEnd:If Abs(S) Z13 And D<-H: Then YG+-=: 表示仰拱实测与设计差Locate 10,4, Abs(D)+A-(W+Q)2-S2) 差值显示到第四行上,负为欠,正为超IfEnd:3a-5800P (它是个特殊情况,无小圆心)xxxB: 进入断面放样工作,开挖或支护厚度(变数)7.05R: 断面净空半径与二衬厚度之和2.13H: 圆心到检修道的垂直高度0.5E: 二衬边缘边墙起点高到检修道的垂直高度1.27F: 检修道到边墙脚的垂直高度12

13、.981A: 仰拱圆心到拱部圆心的垂直高度17.61W: 仰拱半径与衬砌厚度之和0.15V : 这里的0.15是设计拱墙喷砼厚度12DimZ:Pol(Abs(S), D):JZ1:IZ2:(R2-(H-E)2)Z3:sin-1(H-E)/R)Z4:Rec(R+V,Z4): IZ5:JZ6:(W2-(H+F+A)2)Z7:Z5-Z7Z8:H+F-Z6Z9:Z8/Z9Z10: Z10表示边墙的斜率Rec(R+B,Z4):IZ11:JZ12:If Z1-Z4： 表示上半部圆部分Then R+-=： 表示上半部圆部分实测与设计差Locate 10，4,Z2-R-B 差值显示到第四行上,负为欠,正为超I

14、fEnd:If 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: 表示下半部仰拱部分,如果这里的判断条件取得不好,在交界位置会跟随BQ结果一起出现Then YG+-=: 表示仰拱实测与设计差Locate 10,4, A-(W2-S2)-D 差值显示到第四行上,负为欠,正为超IfEnd:Return隧道断面图纸样式a衬砌断面图Ib衬砌断面图。c衬砌断面图。第二种放

15、样程序 FY-02这个程序主要应用在电缆沟及道床顶面的测量工作。高程抄平程序 CPJS变坡点里程O:变坡点高程G:竖曲线半径R:路线后纵坡E:路线前纵坡F:切线长度T:“DG=”?A: 对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值“YG=”?B: 对于全站仪是仪器高度,对于水准仪是后视读数“FYG+-=”?P: 放样点到圆心的垂直高度(圆心以下为负,以上为正)Lbl 0:4DimZ:Cls:“KM=”?L: 待求点里程If LO:Then -0.001EZ4:Else -0.001FZ4:IfEnd:Abs(O-L)Z1:G+Z1Z4Z2:If LO-T Or L>O+T:Th

16、en Z2Z2:IfEnd:If L>O-T And LO:Then (L-O+T)2÷(2R)Z3: If EF:Then Z2+Z3Z2:Else Z2-Z3Z2:IfEnd: IfEnd: If L>O 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 1

17、0,4,A+B-K-H-P 高程差值显示在第四行,负低于设计,正高于设计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

18、:“OUT JL=”?Z:“OUT JD=”?G:Prog“QXJSSUB1”:“XZB=”:NN“YZB=”:EE“QXFWJ=”:FF:FDMSGoto 4Lbl 2:“XZB=”?B:“YZB=”?C:BN:CE:Prog“QXJSSUB2”:“LICHENG=”:SS“OUT JL=”:Z±aZ“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 S<3270.353:Then 7913.106U: 2120

19、.363V: 2850.353O: 90-48-35.26A: 420L: 10(45P:5500R:Return:IfEndIf S<4976.210Then 7901.826U2540.185V: 3270.353O: 92-59-50.86A: 1705.857L: 5500P:5500R:Return:IfEndIf S<5396.210Then 7551.980U4202.804V: 4976.210O: 110-46-05.09A: 420L: 5500P:10(45R:Return:IfEndIf S<6180.470Then 7393.1168U4591.57

20、09V: 5396.210O: 112-57-20.71A: 784.26L: -10(45P:-10(45R:Return:IfEndIf S<6600.470Then 7087.2396U5313.7225V: 6180.470O: 112-57-20.71A: 420L: -10(45P: 5500R:Return:IfEndIf S<7132.315Then 6928.3767U5702.4894V: 6600.470O: 110-46-05.15A: 531.845L: -5500P:-5500R:Return:IfEndIf S<7552.315Then 6764

21、.1103U6208.1131V: 7132.315O: 105-13-39.53A: 420L: -5500P -10(45R:Return:IfEndQXJSSUB1 坐标正算子程序0.5(1/R-1/P)/LD:S-OX:U+(cos(A+(X/P)+DX2)*180/,0,X)N:V+(sin(A+(X/P)+DX2)*180/,0,X)E:A+(X/P)+DX2)*180/,0,X)F:N+Zcos(F+G)N:E+Zsin(F+G)E:ReturnQXJSSUB2 坐标反算子程序Lbl 1:0Z:1Q:Prog “QXJSSUB0”:0.5(1/R-1/P)/LD:S-OX:U+(

22、cos(A+(X/P)+DX2)*180/,0,X)N:V+(sin(A+(X/P)+DX2)*180/,0,X)E:A+(X/P)+DX2)*180/,0,X)F:N+Zcos(F+90)N:E+Zsin(F+90)E:Pol(N-B+10(-46),E-C+10(-46):Isin(F-90-J)W:S+WS:If Abs(W)>0.0001:Then Goto 1:IfEndLbl 2:0Z:Prog “QXJSSUB1”:(C-E)/sin(F+90)Z:Return第四种放样程序 FY-04中桩坐标正反算程序根据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+