隧道三心圆超欠挖程序修改后程序_免费下载.doc

卡西欧计算器5800 隧道超欠挖计算程序 正算主程序(ZS)：Lb1 0：?S：?Z：Prog “PM-SJ”： Abs(S-O) W：Prog SUB1： XS=：XYS=：YF-90F:S K:Prog“SQX-SJ”：“H=”：HGoto 0反算主程序(FS)Lb1 0: ?S：?X：？Y：Prog“PM-SJ”： X I： YJ：Prog SUB2： S=：O+WSZ=：ZS K:Prog“SQX-SJ” ：“H=”：HGoto 0隧道3心圆放样主程序（CQW）Lb1 1：Fix4: “H1”?F:?Z:F-HF: “R”?R：R+2.5P: Abs(5.335+Z)ZIf F1.6:Then (Z2+(F-1.6)2 )-RW: IfEnd:If F-0.431 And F 1.6 :Then (Z+2.5)2+(F-1.6) 2)-PW :IfEnd:If F-1.431 And F -0.431 :Then (Z-4.242)2+(F+0.026) 2)-PW :IfEnd: “W=”: WGoto1R-第一个圆圆心P-第二个圆圆心F-实测高程H-路面纵断设计高程Z-由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z) Z，左线输入Abs(5.72+Z) ZCQW-计算结果（+超，-欠）正算子程序(SUB1)1P C： (P-R)(2HPR) D： 180 E： 0.1739274226A： 0.3260725774 B： 0.0694318442 K： 0.3300094782 L： 1-L F：1-K M： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X： V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90 F： X+ZcosF X： Y+ZsinF Y反算子程序(SUB2)G-90T： Abs(Y-V)cosT-(X-U)sin（T）) W： 0 Z：Lbl 0：Prog SUB1： T+QEW(C+WD) L： (J-Y)cosL-(I-X)sinL Z：ifAbsZJ-1F1111.434Z2:9300B:50000R:177.813T:0.025I:0.01789J:？K:B-KC : 1F:IJ-1FIf KB-T :then 0A: I P:Goto 1: IfEnd: If KB then 1A: IP: Goto 1: IfEnd: If KB :then 0A: JP: Goto 1: IfEndLbI 1: Z1-CP+AF(T-Abs (C)22RH: “H”:HZ2-CP+AF(T-Abs (C)22RH: “H”:HProg “CQW” Z1变坡点高程 B变坡点桩号 R半径 T切线长 I前纵坡度 J后纵坡 K待求点桩号 H待求点高程说明：仪器架至测站点上定向后，观测掌子面任意点，测得数据进入反算主程序FS计算得出：对应里程桩号和边距及对应里程路面纵断设计高程。然后可计算出超欠挖或即可在掌子面上绘出开挖轮廓线，以便更好指导开挖作业。进入隧道3心圆放样主程序（CQW）程序显示H1？-