Goto1:N=2=>Goto2:N=3=>Goto3L">
自編5800隧道超欠挖綜合程序(可用)(非常好)

自編5800隧道超欠挖綜合程序(可用)(非常好)

ID:1262079

大小:90.00 KB

頁數(shù):5頁

時間:2017-11-09

自編5800隧道超欠挖綜合程序(可用)(非常好)_第1頁
自編5800隧道超欠挖綜合程序(可用)(非常好)_第2頁
自編5800隧道超欠挖綜合程序(可用)(非常好)_第3頁
自編5800隧道超欠挖綜合程序(可用)(非常好)_第4頁
自編5800隧道超欠挖綜合程序(可用)(非常好)_第5頁
資源描述:

《自編5800隧道超欠挖綜合程序(可用)(非常好)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。

1、任意坐標(biāo)正反算及隧道超欠挖程序(2010-10-22)1-JINYU(主程序)Lbl4:“1→ZS,2→FS,3→CQW”?N(選擇計算模式,1為正算,2為反算,3為超欠挖)N=1=>Goto1:N=2=>Goto2:N=3=>Goto3Lbl1:“K=”?S:“P=”?Z:Prog“SJ-PM”:Abs(S-O)→W:Prog“SUB1-ZS”:“X=”:Locate4,4,X:“Y=”:Locate4,4,Y:F-90→F:S→K:Prog“SJ-GC”:“H=”:Locate4,4,H:“W

2、=”:Locate4,4,F°◢Goto4(正算-輸入待求點里程K=、輸入待求點偏距P=、顯示待求點里程X=、顯示待求點里程Y=、顯示待求點里程設(shè)計高程H=)Lbl2:“X=”?X:“Y=”?Y:Prog“SJ-PM”:X→I:Y→??J:Prog"SUB2-FS":O+W→S:“K=":Locate4,4,S:“P=":Locate4,4,Z:S→K:Prog“SJ-GC”:“H=”:Locate4,4,H:F-90→F:“W=”:Locate4,4,F°◢Goto4(反算-輸入實測點X=、輸入

3、實測點Y=、顯示實測點里程K=、顯示實測點偏距P=、顯示實測點的設(shè)計高程H=)Lbl3:“X=”?X:“Y=”?Y:Prog“SJ-PM”:X→I:Y→??J:Prog"SUB2-FS":O+W→S:“K=":Locate4,4,S:“P=":Locate4,4,Z:S→K:Prog“SJ-GC”:“H=”:Locate4,4,H◢Prog“SJ-CQW”◢Goto4(超欠挖-輸入實測點X=、輸入實測點Y=、顯示實測點里程K=、顯示實測點偏距P=、顯示實測點的設(shè)計高程H=、輸入實測高程H1=、顯示

4、超欠挖值及第幾圓心上CQ→Y?=)SJ-PM(子程序名-平面線形數(shù)據(jù)庫)IfS≥59227.681(線元起點里程):Then2599818.013→U(線元起點X坐標(biāo)):496887.918→V(線元起點Y坐標(biāo)):59227.681→O(線元起點里程):208028’39”→G(線元起點方位角):100→H(線元長度):1×1045→P(線元起點曲率半徑):1×1045→R(線元終點曲率半徑):0→Q(線元左右偏標(biāo)志:左-1右1直0):IfEndIfS≥59327.681(線元起點里程):Then2

5、599730.112→U(線元起點X坐標(biāo)):496840.237→V(線元起點Y坐標(biāo)):59327.681→O(線元起點里程):208028’39”→G(線元起點方位角):90→H(線元長度):1×1045→P(線元起點曲率半徑):750→R(線元終點曲率半徑):-1→Q(線元左右偏標(biāo)志:左-1右1直0):IfEnd(注:有多個平面線形,依照上面的依次變更,每多一個,就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。)SJ-GC(子程序名-豎曲線數(shù)據(jù)庫)IfS<變坡終點里程AndS≥變坡起點里程:

6、Then大里程坡度→A:小里程坡度→B:變坡點里程→O:變坡點高度→G:半徑→R:Prog“SUB3-GC”:IfEnd(注:1.有多個豎曲線,依照上面的依次變更,每多一個,就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。2.如整條線只有一個縱坡比喻為2﹪,那么程序應(yīng)為IfS<終點里程AndS≥起點里程:Then0.02→A:0.02→B:起點里程→O:起點高程→G:1×1045→R:Prog“SUB3-GC”:IfEnd)SJ-CQW(子程序名-隧道數(shù)據(jù)庫)“H1=”?FIfF-H>5.845:

7、Then√((Abs(Z))2+(F-H-0.45)2)-7.45→W:“CQ→Y1=”:W:IfEnd:(顯示超欠和第1圓心)IfF-H≤5.845AndF-H>-1.169:Then√((Abs(Z)-1)2+(Abs(F-H-1.5))2)-6→W:“CQ→Y2=”:W:IfEnd:(顯示超欠和第2圓心)IfF-H≤-1.169:Then√((Abs(Z))2+(H-F+14.05)2)-16.5→W:“CQ→Y3=”:W:IfEnd:(顯示超欠和第3圓心)(注:隧道斷面有多個圓心,依照上面的依

8、次變更,每多一個,就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。)詳細數(shù)據(jù)見下圖:SUB1-ZS(正算子程序)1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:0.1739274226→??A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Aco

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

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

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