《隧道超欠挖》word版

《《隧道超欠挖》word版》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、隧道超欠挖5800版1.主程序(NTSSD--CQW)Lbl1：5→DimZ：（增加Z型5個(gè)變量）600→S：（輸入近似里程）Prog“SUB0”↙(定義所在線元數(shù)據(jù)庫)1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:“X=”？X：“Y=”？Y：X→I：Y→J：(輸入實(shí)測(cè)XY坐標(biāo),)?“H=”？→Z[1]:(輸入實(shí)測(cè)高程)“R=”？→Z[2]:(輸入斷面理論半徑)Prog“SUB2”：(調(diào)用反算子程序,由反算兩次調(diào)用正算子程序)O+W→S：“K=”：S◢“BIANJULI=”：Z◢(得到樁號(hào)及離中心樁距離)Abs(Z)→B

2、：?(將變量值另存,利于后面計(jì)算)617.42→C：?(定義此段豎曲線變坡點(diǎn)樁號(hào)，也可？C：輸入)71.1→D：???(定義此段豎曲線此段豎曲線變坡點(diǎn)高程)1→I：??????(定義此段豎曲線后坡點(diǎn)坡度)-0.6→J：???(定義此段豎曲線前坡點(diǎn)坡度)1500→R：???(定義此段豎曲線變坡半徑值)-1→Q：?????(判斷是凸凹曲線類型,-1→Q：I1→Q)240→L：????(定義此段豎曲線曲線長)120→T：????(定義此段豎曲線切線長)0.48→E：???(定義此段豎曲線外距)497.42→M：?(定義此段豎曲線變

3、坡曲線起點(diǎn)樁號(hào))737.42→N：?(定義此段豎曲線變坡曲線終點(diǎn)樁號(hào))S→K：??????(將變量值另存,利于后面計(jì)算)Prog“SUB3”：(調(diào)用高程計(jì)算子函數(shù))Fix3：???（輸出保留3位小數(shù)）1.5+Z→Z：?(將路面設(shè)計(jì)值加減設(shè)計(jì)值得到開挖圓心高程)開平方根((Z[1]-Z)2+B2)→X：(得到實(shí)測(cè)點(diǎn)到圓心的距離)“CQW=”:X-Z[2]→A：◢(將實(shí)測(cè)點(diǎn)半徑減理論半徑即為超欠挖)ClrMemory:Goto12.?SUB0數(shù)據(jù)庫子程序Goto1↙同時(shí)保存多個(gè)曲線時(shí)的指針Lbl1：IFS<***（線元終點(diǎn)里程）:The

4、n***→G（線元起點(diǎn)方位角）:***→O（線元起點(diǎn)里程）:***→U（線元起點(diǎn)X）:***→V（線元起點(diǎn)Y）:***→P（線元起點(diǎn)曲率半徑）:***→R（線元終點(diǎn)曲率半徑）:***→H（線元起點(diǎn)至終點(diǎn)長度）：0或1、-1→Q：Return:IfEnd↙Lbl1：IFS<***（線元終點(diǎn)里程）:Then***→G（線元起點(diǎn)方位角）:***→O（線元起點(diǎn)里程）:***→U（線元起點(diǎn)X）:***→V（線元起點(diǎn)Y）:***→P（線元起點(diǎn)曲率半徑）:***→R（線元終點(diǎn)曲率半徑）:***→H（線元起點(diǎn)至終點(diǎn)長度）：0或1、-1→Q：Retu

5、rn:IfEnd……………..為了便于解讀，每增加一個(gè)線元增加一行語句，每增加一條曲線增加一個(gè)Lbl，每增加一個(gè)工程增加一個(gè)文件3.正算子程序(SUB1)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))+Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QE

6、LW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y4.反算子程序(SUB2)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→Z：Lbl0：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→Z：IFAbs（Z）<0.000001：Then0→Z:Prog"SUB1":(J-Y)÷sin（F）→Z↙ElseW+Z→W:Go

7、to4:IfEnd5高程計(jì)算子程序(SUB3)IFK≤M:ThenD+(K-C)I/100→Z:Return:IfEnd↙IFK>MAnd?K≤C:Then(K-M)2/(2R)→P:D+(K-C)I/100+QP→Z:Return:IfEnd↙IFK>CAnd?K≤N:Then(K-M)2/(2R)→P:D+(K-C)J/100+QP→Z:Return:IfEnd↙IFK>N:ThenD+(K-C)J/100→Z:Return:IfEnd↙?經(jīng)反復(fù)核對(duì)的，絕對(duì)能用，5800P上運(yùn)行要4秒出結(jié)果。標(biāo)簽豎曲線隧道曲率半徑定義子程序·舉

8、報(bào)·字體：大▼o小o中o大·分享·轉(zhuǎn)載·復(fù)制地址日志地址:請(qǐng)用Ctrl+C復(fù)制后貼給好友。簽名檔修改?發(fā)表取消本文最近訪客設(shè)置查看最近位訪客↓收起↑