資源描述:
《A-31標(biāo)隧道三心圓超欠挖程序.doc》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、卡西歐計算器5800正反算、隧道超欠挖計算程序概述:位于十天高速A-CD31標(biāo)由中交四局承建的曹家灣與朱家河隧道。隧道洞內(nèi)全面工作展開后,由于各個工作面交叉施工。測量放樣常常受到干擾和制約,由于外界因素干擾測量不及時常常造成超欠挖難以控制。隧道斷面儀應(yīng)用具有局限性,只能架設(shè)隧道中線或法線上,測站點高程還必須重新測出。隧道施工必須講究速度快、準,如果放樣時間太長就會耽誤下道工序施工進展。經(jīng)我們項目部測量組編制以下程序,在施工中可隨時檢查超欠挖、初支、二襯斷面,不影響施工。并在洞身開挖時將開挖輪廓線畫到掌子面,這樣施鉆人員可以很好的將超欠挖控制。
2、避免向以往開完打鉆時參照上一班初支斷面進行打眼,周邊眼施鉆角度也得到很好的掌握。隧道超欠挖計算程序正算主程序(ZS):Lb10:?S:?Z:Prog“PM-SJ”:Abs(S-O)→W:Prog"SUB1":"XS=":X◢"YS=":Y◢F-90→F:S→K:Prog“SQX”:“H=”:H◢Goto0反算主程序(FS)Lb10:?S:?X:?Y:Prog“PM-SJ”:X→I:Y→??J:Prog"SUB2":"S=":O+W→S◢"Z=":Z◢S→K:Prog“SQX”:“H=”:H◢Goto0隧道3心圓放樣主程序(CQ
3、W)Lb11:7.315→R:6.19→P:“H1”?F:?Z:F-H→F:Z→ZIfF≥6.319:Then√((Z+5.72)2+(F-0.715)2)-R→W:IfEnd:IfF≥1.577ANDF<6.319Then√((Abs(Z+5.72)-0.723)2+(F-1.577)2)-P→W:IfEnd:If≤1.577:ThenAbs(Z+5.72)-(P+0.723)→W:IfEnd:“W=”:W◢Goto1R----第一個圓圓心P----第二個圓圓心F----實測高程H----路面縱斷設(shè)計高程Z----由反算主程序反算得到邊距
4、(不需修改)CQW----計算結(jié)果(+超,-欠)隧道二襯斷面檢測主程序(CQJC)Lb11:6.625→R:5.5→P:“H1”?F:?Z:F-H→F:Z→ZIfF≥5.79:Then√((Z+5.72)2+(F-0.715)2)-R→W:IfEnd:IfF<5.79Then√((Abs(Z+5.72)-0.723)2+(F-1.577)2)-P→W:IfEnd:“W=”:W◢Goto1R----第一個圓圓心P----第二個圓圓心F----實測高程H----路面縱斷設(shè)計高程Z----由反算主程序反算得到邊距(不需修改)CQW----計算結(jié)果(
5、+超,-欠)正算子程序(SUB1)1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:0.→??A:0.→B:0.→K:0.→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+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)+90→F:X+
6、ZcosF→X:Y+ZsinF→Y反算子程序(SUB2)G-90→T:Abs((Y-V)cosT-(X-U)sin(T))→W:0→Z:Lbl0:Prog"SUB1":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:ifAbsZ<1E-6:thenGoto1:ElssW+Z??→W:Goto0:IfEndLbl1:0→Z:Prog"SUB1":(J-Y)÷sinF→Z子程序(平面線形數(shù)據(jù)庫)PM-SJifS≥45978.226(線元起點里程)Then2214.419→U(線元起點X坐標(biāo)):4802.542→V(線元
7、起點Y坐標(biāo)):45798.226→O(線元起點里程):’54”→G(線元起點方位角):200→H(線元長度):1300→P(線元起點曲率半徑):1×1045→R(線元終點曲率半徑):1→Q(線元左右偏標(biāo)志:左負右正):IfEndifS≥45998.226(線元起點里程)Then2262.012→U(線元起點X坐標(biāo)):4608.341→V(線元起點Y坐標(biāo)):45998.226→O(線元起點里程):’20”→G(線元起點方位角):238.741→H(線元長度):1×1045→P(線元起點曲率半徑):1×1045→R(線元終點曲率半徑):0→Q(
8、線元左右偏標(biāo)志:左負右正):IfEnd子程序(豎曲線計算公式)SQXLbI0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→