卡西歐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值作為本站結束標志,否則繼續(xù)下一點觀測計算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+