1、 fx5800隧道超欠挖计算程序 隧道超欠挖计算程序正算主程序(ZS):Lb1 0:?S:?Z:Prog “PM-SJ”: Abs(S-O) W:Prog SUB1: XS=:XYS=:YF-90F:S K:Prog“SQX”:“H=”:HGoto 0反算主程序(FS)Lb1 0: ?S:?X:?Y:Prog“PM-SJ”: X I: YJ:Prog SUB2: S=:O+WSZ=:ZS K:Prog“SQX” :“H=”:HGoto 0隧道3心圆放样主程序(CQW)Lb1 1:Fix3:7.315R:6.19P:“H 1”?F:?Z:F-HF: Abs(5.72-Z)ZIf F6.319:T
2、hen (Z2+(F-0.715)2 )-RW: IfEnd:If F1.577 AND F 6.319 Then (Z-0.723)2+(F-1.577) 2)-PW :IfEnd:If1.577: Then Z-(P+0.723)W: IfEnd:“W=”: WGoto1R-第一个圆圆心P-第二个圆圆心F-实测高程H-路面纵断设计高程Z-由反算主程序反算得到边距(不需修改)程序中右线输入Abs(5.72-Z) Z,左线输入Abs(5.72+Z) ZCQW-计算结果(+超,-欠)隧道二衬断面检测主程序(CQJC)Lb1 1:Fix3:6.625R:5.5P: “H1”?F:?Z:F-HF:
3、Abs(5.72-Z)ZIf F5.79:Then (Z2+(F-0.715) 2)-RW: IfEnd:If F5.79 Then (Z-0.723)2+(F-1.577)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
4、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 SU
5、B1: T+QEW(C+WD) L: (J-Y)cosL-(I-X)sinL Z:ifAbsZ1E-6:thenGoto1:ElssW+Z W:Goto 0:IfEndLbl 1: 0 Z:Prog SUB1: (J-Y)sinF Z子程序(平面线形数据库)PM-SJifS 45978.226(线元起点里程)Then 2214.419U(线元起点X坐标):4802.542V(线元起点Y坐标):45798.226O(线元起点里程):28004954”G(线元起点方位角):200 H(线元长度):1300P(线元起点曲率半径):11045R(线元终点曲率半径):1 Q(线元左右偏标志:左负右正):IfEndifS 45998.226(线元起点里程)Then 2262.012U(线元起点X坐标):4608.341V(线元起点Y坐标):45998.226O(线元起点里程):28501420”G(线元起点方位角):238.741 H(线元长度):11045P(线元起点曲率半径):11045R(线元终点曲率半径):0 Q(线元左右偏标志:左负右正):IfEnd子程序(竖曲线计算公式)SQXLbI 0:578.318