casio5800隧道三心圓超欠挖計(jì)算程序

casio5800隧道三心圓超欠挖計(jì)算程序

ID:8353251

大小:116.50 KB

頁數(shù):6頁

時(shí)間:2018-03-21

casio5800隧道三心圓超欠挖計(jì)算程序_第1頁
casio5800隧道三心圓超欠挖計(jì)算程序_第2頁
casio5800隧道三心圓超欠挖計(jì)算程序_第3頁
casio5800隧道三心圓超欠挖計(jì)算程序_第4頁
casio5800隧道三心圓超欠挖計(jì)算程序_第5頁
資源描述:

《casio5800隧道三心圓超欠挖計(jì)算程序》由會員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫

1、關(guān)于隧道超欠挖的控制方法隧道超欠挖計(jì)算程序正算主程序(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心圓放樣主程序(CQW)Lb11:Fix3:7

2、.315→R:6.19→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIfF≥6.319:Then√(Z2+(F-0.715)2)-R→W:IfEnd:IfF≥1.577ANDF<6.319Then√((Z-0.723)2+(F-1.577)2)-P→W:IfEnd:If≤1.577:ThenZ-(P+0.723)→W:IfEnd:“W=”:W◢Goto1R----第一個(gè)圓圓心P----第二個(gè)圓圓心F----實(shí)測高程H----路面縱斷設(shè)計(jì)高程Z----由反算主程序反算得到邊距(不需修改)程序中右線輸

3、入Abs(5.72-Z)→Z,左線輸入Abs(5.72+Z)→ZCQW----計(jì)算結(jié)果(+超,-欠)隧道二襯斷面檢測主程序(CQJC)Lb11:Fix3:6.625→R:5.5→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIfF≥5.79:Then√(Z2+(F-0.715)2)-R→W:IfEnd:IfF<5.79Then√(Z-0.723)2+(F-1.577)2)-P→W:IfEnd:“W=”:W◢Goto1R----第一個(gè)圓圓心P----第二個(gè)圓圓心F----實(shí)測高程H----路面縱斷設(shè)計(jì)

4、高程Z----由反算主程序反算得到邊距(不需修改)程序中右線輸入Abs(5.72-Z)→Z,左線輸入Abs(5.72+Z)→ZCQW----計(jì)算結(jié)果(+超,-欠)正算子程序(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

5、+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+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:

6、0→Z:Prog"SUB1":(J-Y)÷sinF→Z子程序(平面線形數(shù)據(jù)庫)PM-SJifS≥45978.226(線元起點(diǎn)里程)Then2214.419→U(線元起點(diǎn)X坐標(biāo)):4802.542→V(線元起點(diǎn)Y坐標(biāo)):45798.226→O(線元起點(diǎn)里程):’54”→G(線元起點(diǎn)方位角):200→H(線元長度):1300→P(線元起點(diǎn)曲率半徑):1×1045→R(線元終點(diǎn)曲率半徑):1→Q(線元左右偏標(biāo)志:左負(fù)右正):IfEndifS≥45998.226(線元起點(diǎn)里程)Then2262.012→U(線元起點(diǎn)X坐

7、標(biāo)):4608.341→V(線元起點(diǎn)Y坐標(biāo)):45998.226→O(線元起點(diǎn)里程):’20”→G(線元起點(diǎn)方位角):238.741→H(線元長度):1×1045→P(線元起點(diǎn)曲率半徑):1×1045→R(線元終點(diǎn)曲率半徑):0→Q(線元左右偏標(biāo)志:左負(fù)右正):IfEnd子程序(豎曲線計(jì)算公式)SQXLbI0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→I:0.035→J:?K:B-K→C:1→F:I>J=>-1→FIfK

8、d:IfKBthen0→A:J→P:Goto1:IfEndLbI1:Z[1]-CP+AF(T-Abs(C))2÷2÷R→H:“H”:H◢Goto0Z——變坡點(diǎn)高程B——變坡點(diǎn)樁號R——半徑T——切線長I——前縱坡度J——后縱坡K——待求點(diǎn)

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時(shí)可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負(fù)責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時(shí)聯(lián)系客服。
3. 下載前請仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費(fèi)完成后未能成功下載的用戶請聯(lián)系客服處理。