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

《自編5800隧道超欠挖綜合程序(可用)(非常好)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、任意坐標(biāo)正反算及隧道超欠挖程序(2010-10-22)1-JINYU(主程序)Lbl4:“1→ZS,2→FS,3→CQW”?N(選擇計(jì)算模式，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=”:Locate4,4,F°◢Goto4(正算-輸入待求點(diǎn)里程K=、輸入待

2、求點(diǎn)偏距P=、顯示待求點(diǎn)里程X=、顯示待求點(diǎn)里程Y=、顯示待求點(diǎn)里程設(shè)計(jì)高程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(反算-輸入實(shí)測(cè)點(diǎn)X=、輸入實(shí)測(cè)點(diǎn)Y=、顯示實(shí)測(cè)點(diǎn)里程K=、顯示實(shí)測(cè)點(diǎn)偏距P=、顯示實(shí)測(cè)點(diǎn)的設(shè)計(jì)高程H=)Lbl3:“X=”?X：“Y=”？Y:Prog“SJ-PM”：X→I：Y

3、→??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(超欠挖-輸入實(shí)測(cè)點(diǎn)X=、輸入實(shí)測(cè)點(diǎn)Y=、顯示實(shí)測(cè)點(diǎn)里程K=、顯示實(shí)測(cè)點(diǎn)偏距P=、顯示實(shí)測(cè)點(diǎn)的設(shè)計(jì)高程H=、輸入實(shí)測(cè)高程H1=、顯示超欠挖值及第幾圓心上CQ→Y？=)SJ-PM（子程序名-平面線形數(shù)據(jù)庫(kù)）IfS≥59227.681（線元起點(diǎn)里程）:Then2599818.013→U（線元起點(diǎn)X坐標(biāo)）：496887.918→V（線元起點(diǎn)Y坐標(biāo)）：59227.

4、681→O（線元起點(diǎn)里程）：208028’39”→G（線元起點(diǎn)方位角）：100→H（線元長(zhǎng)度）：1×1045→P（線元起點(diǎn)曲率半徑）：1×1045→R（線元終點(diǎn)曲率半徑）：0→Q（線元左右偏標(biāo)志：左-1右1直0）：IfEndIfS≥59327.681（線元起點(diǎn)里程）:Then2599730.112→U（線元起點(diǎn)X坐標(biāo)）：496840.237→V（線元起點(diǎn)Y坐標(biāo)）：59327.681→O（線元起點(diǎn)里程）：208028’39”→G（線元起點(diǎn)方位角）：90→H（線元長(zhǎng)度）：1×1045→P（線元起點(diǎn)曲率半徑）：750→R（線元終點(diǎn)曲率半徑）：-1→Q（線元左右偏標(biāo)志：左-1右1直0

5、）：IfEnd(注：有多個(gè)平面線形，依照上面的依次變更,每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷。)SJ-GC（子程序名-豎曲線數(shù)據(jù)庫(kù)）IfS＜變坡終點(diǎn)里程AndS≥變坡起點(diǎn)里程：Then大里程坡度→A：小里程坡度→B：變坡點(diǎn)里程→O：變坡點(diǎn)高度→G：半徑→R：Prog“SUB3-GC”:IfEnd(注：1.有多個(gè)豎曲線，依照上面的依次變更，每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷。2.如整條線只有一個(gè)縱坡比喻為2﹪，那么程序應(yīng)為IfS＜終點(diǎn)里程AndS≥起點(diǎn)里程：Then0.02→A：0.02→B：起點(diǎn)里程→O：起點(diǎn)高程→G：1×1

6、045→R：Prog“SUB3-GC”:IfEnd)SJ-CQW(子程序名-隧道數(shù)據(jù)庫(kù))“H1=”?FIfF-H＞5.845: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:(顯示超欠

7、和第3圓心)(注：隧道斷面有多個(gè)圓心，依照上面的依次變更,每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷。)詳細(xì)數(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