隧道 测 量 超 欠 挖 计 算 程 序.docVIP

隧道 测 量 超 欠 挖 计 算 程 序(5800) 曲线：QXLK “ZF”？U:“RP”?O:“ZY”? K:D“X 0”?D:E“YO”?E :?V:?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘ Lb1 8←┘ ?X:?Y←┘ Pol((X-D)，(Y-E) )) ←┘ “S ”:= -V(I-O)=→S ◢ (字母O) “L ”:=K+πOsin-1 (sin(90+V(J-U )))÷180→L◢ RAbs(N-M)÷2→T←┘ B-L→C←┘ 1→F←┘ IF M＞N:Then-1→F:THEND←┘ IF L＜B-T:Then Goto 1:ELSE IF L＜B:THEN Goto 2:ELSE IF L＜B+T:THENGoto3: ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘ Lb1 1←┘ “G ”:=H-CM→G◢ Goto5←┘ Lb1 2←┘ “G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢ Goto5←┘ Lb1 3←┘ “G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢ Goto5←┘ Lb1 4←┘ “G=” :H-CN→G◢ Lb1 5←┘ ?Z←┘ IF Z＞G+5.92:THEN Goto6:ELS