《隧道超欠挖程序》word版

1、隧道超欠挖5800計算程序ZBFS(坐標(biāo)反算)通用版老版本?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G0:Then 1Z:Else -1Z:IfEndPol(X-N,Y-E:If GM:Then Goto 3:IfEndG+PT+Rec(I,J-U)S:JDIf SG:Then K=:SKQ=:ZD=QGoto 9Else Goto 4:IfEndLbl 3:If SG:Then K=:SKQ=:ZDQGoto 9Lbl 4:C24R-C(4)2688R(3)W:C2-C(3)240RV:90CRB:Pol(P(S-G)-V,ZD-R-W):If JB-

2、90:Then Goto 5:IfEndP(S-G)+P(S-G)(5)40RCZ:Z(3)(6RC)H:If A0:Then D-HW:Else D-HW:IfEndIf RC2WC:Then RCWZ:Else (RC-(RC-2RCWZ)WZ:IfendK=:G+PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:If AM:Then Goto 7:IfEndIf OM:Then k=:OKQ=JQGoto 9Else Goto 8Lbl 7:If OM:Then K=:OKQ=:JQIfendGoto 9Lbl 8:P(M-O)+P(M-O)(5)(40RC)Z:Z(3)(6RC

3、)H:J-HW:If RC2WZ:Then RCWZ:Else(RC-(RC-2RCWZ)WZ:IfEndK=:M-PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:(O-V)+(J-H)W:If JH:ThenQ=:WQElse Q=:-WQIfEndGoto 9Lbl 9:?Z:?S: Q=357.957+(K-26966)0.02098+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0ZBZS(坐標(biāo)正算)通用版?D:?A:?R:?C:C24R-C(4)2688R(3)P:C2- C(3)240RQ:90CRB(R+P)tan(Abs(A)2)+QT:(R+P)co

4、s(A2)-RJ:(Abs(-A)-(2B)R180+2CL: G:D-TGH:G+CHG+L2W: Z:G+L-CZM:G+LM?N:?Z:?I:?F:If AM:Then K-M+TL:F+AV:VU:Goto 2:IfEndLbl 2:X=:N+Lcos(V)XY=:E+Lsin(V)YGoto 6Lbl 3:?Q:X=:X+Qcos(U+90)XY=:Y+Qsin(U+90)YGoto 1Lbl 4:X=:N+Tcos(P)+Vcos(Q)XY=:E:+Tsin(P)+Vsin(Q)YGoto 6Lbl 5:X=:B+Rcos(L)XY=:O+Rsin(L)YGoto 6Lbl 6:I

5、=1Goto 3Goto 1使用說明：反算說明：1、N：交點X坐標(biāo)， E：交點Y坐標(biāo)。2、A：轉(zhuǎn)角值、左“-”右“+” ， R：平曲線半徑。3、C：緩和曲線長度， T：切線長度。4、G：點第一緩和曲線起點里程， M：點第二緩和曲線終點里程。5、F：計算方位角。 6、“X” “Y”實測坐標(biāo)計算。7、K：實測里程, Q：實測里程偏距。8、Z：實測高程， S：設(shè)計斷面圓心半徑。9、P:超欠挖“+”超“-”欠.正算說明：1、D:交點樁號， A：轉(zhuǎn)角值、左“-”右“+” 。2、R：半徑， C：緩和曲線長度。3、G：緩和曲線起點里程， H: 第一緩和曲線終點或圓曲線起點。4、第二緩和曲線終點或圓曲線起點，

6、 M：第二緩和曲線終點。5、N交點X坐標(biāo)， Z：N交點Y坐標(biāo)。6、I：輸入1, F: 計算方位角.7、K：里程， “X” “Y”實設(shè)計坐標(biāo)。8、Q ：偏距 “X” “Y”計算坐標(biāo)。長旺2號左洞仰供：Lbl 9:?Z:?S: Q=369.657+(K-26966)0.02098+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0洞身：Lbl 9:?Z:?S: Q=357.957+(K-26966)0.02098+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0長旺2號右洞仰供：Lbl 9:?Z:?S: Q=370.014+(K-26990)0.0207+SOO-Z-

7、SB:P=: (5.3-Q)+B)-SPGoto 0洞身：Lbl 9:?Z:?S: Q=358.314+(K-26990)0.0207+SOO-Z-SB:P=: (5.3-Q)+B)-SPGoto 0河背溝左洞仰供：Lbl 9:?Z:?S: Q=369.657+(K-26966)0.02098+SOO-Z-SB:P=: (5.3-Q)+B)-SPGoto 0洞身：Lbl 9:?Z:?S: Q=3357.957+(K-26966)0.02098+SOO-Z-SB:P=: (5.3-Q)+B)-SPGoto 0河背溝右洞仰供：Lbl 9:?Z:?S: Q=370.014+(K-26990)0.02

8、07+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0洞身：Lbl 9:?Z:?S: Q=358.314+(K-26990)0.0207+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0FS(坐標(biāo)反算)通用版更新版?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G0:Then 1Z:Else -1Z:IfEndPol(X-N,Y-E:If GM:Then Goto 3:IfEndG+PT+Rec(I,J-U)S:JDIf SG:Then K=:SKQ=:ZD=QGoto 9Else Goto 4:IfEndLbl 3:If SG

9、:Then K=:SKQ=:ZDQGoto 9Lbl 4:C24R-C(4)2688R(3)W:C2-C(3)240RV:90CRB:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEndP(S-G)+P(S-G)(5)40RCZ:Z(3)(6RC)H:If A0:Then D-HW:Else D-HW:IfEndIf RC2WC:Then RCWZ:Else (RC-(RC-2RCWZ)WZ:IfendK=:G+PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:If AM:Then Goto 7:IfEndIf OM:Then k=:OKQ=JQGoto 9Else Goto 8Lbl 7:If OM:Then K=:OKQ=:JQIfendGoto 9Lbl 8:P(M-O)+P(M-O)(5)(40RC)Z:Z(3)(6RC)H:J-HW:If RCJ:Then -1W:IfEndIf K0:Then Goto 9Else If KB-U:Then 0Z:IPElse