【测量学】5800 隧道超欠挖.pdfVIP

fx 5800 隧道超欠挖计算程序 隧道超欠挖计算程序 正算主程序(ZS) ： Lb1 0 ：?S ：?Z ：Prog “PM-SJ” ：Abs(S-O) → W ：Prog SUB1 ： XS= ：X◢YS= ：Y◢F-90→F:S→ K:Prog“SQX” ： “H=”：H◢Goto 0 反算主程序(FS) Lb1 0: ?S ：?X ：？Y ：Prog“PM-SJ” ：X→ I ：Y→ J ：Prog SUB2 ： S= ：O+W→S◢Z= ：Z◢ S→ K:Prog“SQX” ： “H=”：H◢Goto 0 隧道 3 心圆放样主程序（CQW ） Lb1 1 ：Fix3:7.315→R ：6.19→P:“H 1”?F:?Z:F-H→F Abs(5.72-Z)→Z 2 2 If F≥6.319:Then √(Z +(F-0.715) )-R→W IfEnd: 1 读万卷书 行万里路 2 2 If F≥1.577 AND F ＜6.319 Then √((Z-0.723) +(F-1.577) )- P→W :IfEnd: If≤1.577: Then Z-(P+0.723)→W IfEnd: “ W=”: W◢ Goto1 R第一个圆圆心 P第二个圆圆心 F实测高程 H路面纵断设计高程 Z由反算主程序反算得到边距（不需修改） 程序中右线输入 Abs(5.72-Z) →Z ，左线输入Abs(5.72+Z) →Z CQW计算结果（ +超，-欠） 隧道二衬断面检测主程序（CQJC ） 2 读万卷书 行万里路 Lb1 1 ：Fix3:6.625→R ：5.5→P: “H1”?F:?Z:F-H→F Abs(5.72-Z)→Z 2 2 If F≥5.79:Then √(Z +(F-0.715) )-R→W IfEnd: 2 2 If F ＜5.79 Then √(Z-0.723) +(F-1.577) )-P→W :IfEnd: “ W=”: W◢ Goto1 R第一个圆圆心 P第二个圆圆心 F实测高程 H路面纵断设计高程 Z由反算主程序反算得到边距（不需修改） 程序中右线输入 Abs(5.72-Z) →Z ，左线输入Abs(5.72+Z) →Z CQW计算结果（ +超，-欠） 正算子程序(SUB1) 1÷P→ C ： (P-R)÷(2HPR) → D ： 180÷π→ E ： 0.1739274226→ A ： 0.3260725774→ B ： 0.0694318442→ K ： 0.3300094782→ L ： 1-L→ F ：1-K→ M ： 3 读万卷书 行万里路 U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+Q EFW(C+FWD))+Acos(G+QEMW(C+MWD))) → X ： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QE FW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y ： G+QEW(C+WD)+90→ F ：X+ZcosF→ X ：Y+ZsinF→ Y 反算子程序(SUB2) G-90→T ：Abs((Y-V)cosT-(X-U)sin （T ）