《隧道超欠挖程序》word版

《《隧道超欠挖程序》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、隧道超欠挖5800计算程序ZBFS(坐标反算)通用版《老版本》?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◢Goto9ElseGoto4:IfEndLbl3:IfS

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

3、◢K-PZ∧(5)÷(40R²C²)→V:Z∧(3)÷(6RC)→H:IfA<0:Then-1→Z:Else1→Z:IfEnd((S-V)²+(ZD-H)²)→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◢Goto9Lbl6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:IfG>M:ThenGot

4、o7: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)÷(40R²C²)→Z:Z∧(3)÷(6RC)→H:J-H→W:IfRC<2WZ:ThenRC÷W→Z:Else((RC-((R²C²-2RCWZ)))÷W→Z:IfEnd＂K=＂:M-PZ→K◢K-PZ∧(5)÷(40R²C²)→V:Z∧(3)÷(6RC)→H:((O-V)²+(J-H)²)→W:IfJH:Then

5、＂Q=＂:W→Q◢Else＂Q=＂:-W→Q◢IfEndGoto9Lbl9:?Z:?S:＂Q=＂357.957+(K-26966)×0.02098+S→O◢O-Z-S→B:＂P=＂:((5.3+Q)²+B²)-S→P◢Goto0ZBZS(坐标正算)通用版?D:?A:?R:?C:C²÷24÷R-C∧(4)÷2688÷R∧(3)→P:C÷2-C∧(3)÷240÷R²→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◢

6、＂H＂:G+C→H◢G+L÷2→W:＂Z＂:G+L-C→Z◢＂M＂:G+L→M◢?N:?Z:?I:?F:IfA<0:Then-1→S:Else1→S:IfEndF+A÷2+90S→U:J+R→V:＂B＂:N+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)²→V:30SL²÷(πRC)→L:F+180→P:F+L→Q:F+3L→U:Goto4:IfEndIfKZ:ThenF+A÷2+

7、180+90S+(K-W)×180S÷(Rπ)→L:L+90S→U:Goto5:IfEndIfKM:ThenM-K→L:L-L∧(5)÷90÷(RC)²→V:30SL²÷(πRC)→L:F+A→P:F+A+180-L→Q:F+A-3L→U:Goto4:IfEndIfK>M:ThenK-M+T→L:F+A→V:V→U:Goto2:IfEndLbl2:＂X=＂:N+Lcos(V)→X◢＂Y=＂:E+Lsin(V)→Y◢Goto6Lbl3:?Q:＂X=＂:X+Qcos(U+90)→X◢＂Y=＂:Y+Qsin(U+90)→Y◢Goto1Lbl4:

8、＂X=＂:N+Tcos(P)+Vcos(Q)→X◢＂Y=＂:E:+Tsin(P)+Vsin(Q)→Y◢Goto6Lbl5:＂X=＂:B+Rcos(L)→X◢＂Y=＂:O+Rsin(L)→Y◢G