5800隧道超欠挖程序

《5800隧道超欠挖程序》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、隧道超欠挖5800計(jì)算程序ZBFS(坐標(biāo)反算)通用版《老版本》?N:?E:?A:?R:?C:?T:?G:?M:?FLbl0:?X:?Y:IfG0:Then1→Z:Else-1→Z:IfEndPol(X-N,Y-E):IfG>M:ThenGoto3:IfEndG+PT+Rec(I,J-U)→S:J→DIfSG:Then＂K=＂:S→K◢＂Q=＂:ZD=Q◢Goto9Els

2、eGoto4:IfEndLbl3:IfSG:Then＂K=＂:S→K◢＂Q=＂:ZD→Q◢Goto9Lbl4:C2÷24÷R-C∧(4)÷2688÷R∧(3)→W:C÷2-C∧(3)÷240÷R2→V:90C÷π÷R→B:Pol(P(S-G)-V,ZD-R-W):IfJB-90:ThenGoto5:IfEndP(S-G)+P(S-G)∧(5)÷40÷R2÷C2→Z:Z∧(3)÷(6RC)→H:IfA>0:ThenD-H→W:Else–D-H→W:IfEndIfRC2WC:ThenRC÷W→Z:Else

3、((RC-(R2C2-2RCWZ)))÷W→Z:Ifend＂K=＂:G+PZ→K◢K-PZ∧(5)÷(40R2C2)→V:Z∧(3)÷(6RC)→H:IfA<0:Then-1→Z:Else1→Z:IfEnd((S-V)2+(ZD-H)2)→W:IfZDH:Then＂Q=＂:W→Q◢Else＂Q=＂:-W→Q◢IfEndGoto9Lbl5:(90+J)π÷180-C÷(2R)→J:IfRJP(M-G)-2C:ThenGoto6:Ifend＂K=＂:G+P(C+JR)→K◢＂Q=＂:R-I→Q◢Goto9

4、Lbl6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:IfG>M:ThenGoto7:IfEndIfO>M:Then＂k=＂:O→K◢＂Q=＂J→Q◢Goto9ElseGoto8Lbl7:IfOM:Then＂K=＂:O→K◢＂Q=＂:J→Q◢IfendGoto9Lbl8:P(M-O)+P(M-O)∧(5)÷(40R2C2)→Z:Z∧(3)÷(6RC)→H:J-H→W:IfRC<2WZ:ThenRC÷W→Z:Else((RC-((R2C2-2RCWZ)))÷W→Z

5、:IfEnd＂K=＂:M-PZ→K◢K+PZ∧(5)÷(40R2C2)→V:Z∧(3)÷(6RC)→H:((O-V)2+(J-H)2)→W:IfJH:Then＂Q=＂:W→Q◢Else＂Q=＂:-W→Q◢IfEndGoto9Lbl9:346.050→H:26470→B:40000→V:0.03→I:0.02098→J?K:VAbs((J-I)÷2→U:B-K→O:1→W:IfI>J:Then-1→W:IfEndIfK<0:ThenGoto9ElseIfK

6、B:Then1→Z:I→PElseIfKP-1:Then＂L=＂:P+1.5+S→L◢L-Z-S→B:＂P=＂((5.3-Q)2+B2)-S→P◢ElseIfZ

7、)通用版?D:?A:?R:?C:C2÷24÷R-C∧(4)÷2688÷R∧(3)→P:C÷2-C∧(3)÷240÷R2→Q:90C÷π÷R→B:(R+P)tan(Abs(A)÷2)+Q→T:(R+P)÷cos(A÷2)-R→J:(Abs(-A)-(2B))πR÷180+2C→L:＂G＂:D-T→G◢＂H＂:G+C→H◢G+L÷2→W:＂Z＂:G+L-C→Z◢＂M＂:G+L→M◢?N:?E:?I:?F:IfA<0:Then-1→S:Else1→S:IfEndF+A÷2+90S→U:J+R→V:＂B＂:N

8、+Vcos(U)→B:＂O＂:E+Vsin(U)→OLbl1:?K:IfKG:ThenG+T-K→L:F+180→V:F→U:Goto2:IfEndIfKH:ThenK-G→L:L-L∧(5)÷90÷(RC)2→V:30SL2÷(πRC)→L:F+180→P:F+L→Q:F+3L→U:Goto4:IfEndIfKZ:ThenF+A÷2+180+90S+(K-W)×180S÷(Rπ)→L:L+90S→U:Goto5:IfEndIfKM:ThenM-K→L: