5800隧道超欠挖程序.doc

文档介绍：ZBFS(坐标反算)通用版《老版本》?N:?E:?A:?R:?C:?T:?G:?M:?FLbl0:?X:?Y:IfG<M:Then1→P:Else-1→P:IfEndIfP=1:ThenF→U:ElseP=-1:ThenF+A→U:IfEndIfA>0: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:IfSG: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◢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: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)÷(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"Q=":W→Q◢Else"Q=":-W→Q◢IfEndGoto9Lbl9:→H:26470→B:40000→V:→I:→J?K:VAbs((J-I)÷2→U:B-K→O:1→W:IfI>J:Then-1→W:IfEndIfK<0:ThenGoto9ElseIfK<B-U:Then0→Z:I→PElseIfK<B:Then1→Z:I→PElseIfK<B+U:Then1→Z:I→P:Then0→Z:J→PIfEnd:IfEnd:IfEnd:IfEnd"GC=":H-OP+ZW(U-Abs(0))²÷(2V)→P◢?Z:?S:IfZ>P-1:Then"L=":P++S→L◢L-Z-S→B:"P="