隧道超欠挖程序課件

隧道超欠挖程序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°◢Goto4Lbl2:“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°◢Goto4Lbl3:“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”◢Goto4SJ--PM（子程序名-平面線形數(shù)據(jù)庫(kù)）

IfS≥59227.681:Then2599818.013→U：496887.918→V：59227.681→O：208028’39”→G：100→H：1×1045→P：1×1045→R：0→Q：IfEndIfS≥59327.681:Then2599730.112→U：496840.237→V：59327.681→O：208028’39”→G：90→H：1×1045→P：750→R：-1→Q：IfEnd(注：有多個(gè)平面線形，依照上面的依次變更,每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷。)(注：隧道斷面有多個(gè)圓心，依照上面的依次變更,每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷。)詳細(xì)數(shù)據(jù)見(jiàn)下圖: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))+Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(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)→YSUB2-FS(反算子程序)G-90→T：Abs((Y-V)cos(T)-(X-U)sin（T）)→W：0→Z：Lbl0：Prog"SUB1-ZS"：T+QEW(C+WD)→L：(J-Y)cos(L)-(I-X)sin(L)→Z：IfAbs(Z)<1E-6(注：此處1E-6可輸入0.000001)：thenGoto1：ElseW+Z

→W：Goto0：IfEndLbl1：0→Z：Prog"SUB1-ZS"：(J-Y)÷sin(F)→ZSUB3-GC（高程子程序）O-S→L:A-B→W:Abs(R*W÷2)→T:O-T→M:O+T→P

IfS≤M:ThenG-L*B→H:Goto5:ElseIfS≤O:ThenGoto3:ElseIfS≤P:ThenGoto4:IfEnd:IfEnd:IfEnd

Lbi3

IfW＞O：ThenG+(M-S)2÷2÷R-L*B→H:Goto5:ElseIfW＜O:ThenG-(M-S)2÷2÷R-L*B→H:Goto5:IfEnd:IfEnd

Lbi4

IfW＞O：ThenG+(S-P)2÷2÷R-L*A→H:Goto5:ElseIfW＜O:ThenG-(S-P)2÷2÷R-L*A→H:Goto5:IfEnd:IfEnd

Lbi5

H→H:Return說(shuō)明：(正算1秒，反算和超欠挖5秒完成)所有程序名。不同線路，只需改動(dòng)SJ-PM，SJ-GC，SJ-CQW三個(gè)子程序里的內(nèi)容，其它不變。1為正算，2為反算，3為超欠挖.K=正算時(shí)，輸入所求點(diǎn)里程。反算時(shí)得出里程結(jié)果X=，Y=正算時(shí)得出結(jié)果。反算時(shí)輸入實(shí)測(cè)坐標(biāo)P=正算時(shí)輸入偏距。反算時(shí)得出偏距H=正算時(shí)得出高程。反算