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

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

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=”:Locate4,4,F°◢Goto4(正算-輸

2、入待求點里程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=、輸入實測點Y=、顯示實測點里程K=、顯示實測點偏距P=、顯示實測點的設(shè)計高程H=)Lbl3:“X=”?X：“

3、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=、顯示超欠挖值及第幾圓心上CQ→Y？=)SJ-PM（子程序名-平面線形數(shù)據(jù)庫）IfS≥59227.681（線元起點里程）:Then2599818.013→U（線

4、元起點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（線元起點里程）:Then2599730.112→U（線元起點X坐標(biāo)）：496840.237→V（線元起點Y坐標(biāo)）：59327.681→O（線元起點里程）：208028’39”→G（線元起點方位角）：90→H（線元長度）：1×1045→

5、P（線元起點曲率半徑）：750→R（線元終點曲率半徑）：-1→Q（線元左右偏標(biāo)志：左-1右1直0）：IfEnd(注：有多個平面線形，依照上面的依次變更,每多一個，就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。)SJ-GC（子程序名-豎曲線數(shù)據(jù)庫）IfS＜變坡終點里程AndS≥變坡起點里程：Then大里程坡度→A：小里程坡度→B：變坡點里程→O：變坡點高度→G：半徑→R：Prog“SUB3-GC”:IfEnd(注：1.有多個豎曲線，依照上面的依次變更，每多一個，就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。2.如整條線只有一個縱坡比喻為2﹪

6、，那么程序應(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: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圓心)

7、IfF-H≤-1.169:Then√((Abs(Z))2+(H-F+14.05)2)-16.5→W:“CQ→Y3=”:W:IfEnd:(顯示超欠和第3圓心)(注：隧道斷面有多個圓心，依照上面的依次變更,每多一個，就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷。)詳細(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+KW

8、D))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Aco