5800隧道超欠挖程序.docVIP

隧道超欠挖5800计算程序 ZBFS(坐标反算)通用版《老版本》 ?N:?E:?A:?R:?C:?T:?G:?M:?F Lbl 0:?X:?Y:If GM:Then 1→P:Else -1→P:IfEnd If P=1:Then F→U:Else P=-1: Then F+A→U:IfEnd If A0:Then 1→Z:Else -1→Z:IfEnd Pol(X-N,Y-E:If GM:Then Goto 3:IfEnd G+PT+Rec(I,J-U)→S:J→D If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9 Else Goto 4:IfEnd Lbl 3:If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD→Q◢ Goto 9 Lbl 4: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):If JB-90:Then Goto 5:IfEnd P(S-G)+P(S-G)∧(5)÷40÷R2÷C2→Z:Z∧(3)÷(6RC)→H:If A0:Then D-H→W:Else –D-H→W:IfEnd If RC2WC:Then RC÷W→Z:Else ((RC-(R2C2-2RCWZ))÷W→Z:Ifend ＂K=＂:G+PZ→K◢ K-PZ∧