玛艾镇开展机关作风与效能建设活动调查问卷.doc

隧道超欠挖5800计算程序
ZBFS(坐标反算)通用版《老版本》
?N:?E:?A:?R:?C:?T:?G:?M:?F
Lbl 0:?X:?Y:If G<M:Then 1→P:Else -1→P:IfEnd
If P=1:Then F→U:Else P=-1: Then F+A→U:IfEnd
If A>0:Then 1→Z:Else -1→Z:IfEnd
Pol(X-N,Y-E):If G>M: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: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):If JB-90:Then Goto 5:IfEnd
P(S-G)+P(S-G)∧(5)÷40÷R²÷C²→Z:Z∧(3)÷(6RC)→H:If A>0:Then D-H→W:Else –D-H→W:IfEnd
If RC2WC:Then RC÷W→Z:Else ((RC-(R²C²-2RCWZ)))÷W→Z:Ifend
"K=":G+PZ→K◢
K-PZ∧(5)÷(40R²C²)→V:Z∧(3)÷(6RC)→H:If A<0:Then -1→Z:Else 1→Z:IfEnd
((S-V)²+(ZD-H)²)→W:If ZDH:Then "Q=":W→Q◢
Else "Q=":-W→Q◢
IfEnd
Goto 9
Lbl 5:(90+J)π÷180-C÷(2R)→J:If RJP(M-G)-2C: Then Goto 6: Ifend
"K=":G+P(C+JR)→K◢
"Q=":R-I→Q◢
Goto 9
Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:If G>M:Then Goto 7:IfEnd
If O>M:Then "k=":O→K◢
"Q="J→Q◢
Goto 9
Else Goto 8
Lbl 7:If OM:Then "K=":O→K◢
"Q=":J→Q◢
Ifend
Goto 9
Lbl 8:P(M-O)+P(M-O)∧(5)÷(40R²C²)→Z:Z∧(3)÷(6RC)→H:J-H→W:If RC<2WZ:Then RC÷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:If JH:Then"Q=":W→Q◢
Else "Q=":-W→Q◢
IfEnd
Goto 9
Lbl 9:→H:26470→B:40000→V:→I:→J
?K:VAbs ((J-I)÷2→U:B-K→O:1→W:If I>J:Then-1→W:I fEnd
If K<0:Then Goto 9