5800隧道超欠挖程序(新版本)

隧道超欠挖5800计算程序

ZBFS(坐标反算)通用版《老版本》

?N:?E:?A:?R:?C:?T:?G:?M:?F

Lbl 0:?X:?Y:If G0:Then 1→Z:Else -1→Z:IfEnd

Pol(X-N,Y-E):If G>M:Then Goto 3:IfEnd G+PT+Rec(I,J-U)→S:J→D If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9

Else Goto 4:IfEnd

Lbl 3:If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD→Q◢ Goto 9

Lbl 4:C²÷24÷R-C(4)÷2688÷R(3)→W:C÷2-C(3)÷240÷R²→V:90C÷π÷R→B:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEnd

P(S-G)+P(S-G)(5)÷40÷R²÷C²→Z:Z(3)÷(6RC)→H:If A>0:Then D-H→W:Else –D-H→W:IfEnd

If RC2WC:Then RC÷W→Z:Else ((RC-(R²C²-2RCWZ)))÷W→Z:Ifend ＂K=＂:G+PZ→K◢

K-PZ(5)÷(40R²C²)→V:Z(3)÷(6RC)→H:If A<0:Then -1→Z:Else 1→Z:IfEnd

((S-V)²+(ZD-H)²)→W:If ZDH:Then ＂Q=＂:W→Q◢

Else ＂Q=＂:-W→Q◢ IfEnd Goto 9

Lbl 5:(90+J)π÷180-C÷(2R)→J:If RJP(M-G)-2C: Then Goto 6: Ifend ＂K=＂:G+P(C+JR)→K◢ ＂Q=＂:R-I→Q◢ Goto 9

Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:If G>M:Then Goto 7:IfEnd

If O>M:Then ＂k=＂:O→K◢ ＂Q=＂J→Q◢ Goto 9

Else Goto 8

∧

∧

∧

∧

∧

∧

∧

Lbl 7:If OM:Then ＂K=＂:O→K◢ ＂Q=＂:J→Q◢ Ifend Goto 9

Lbl 8:P(M-O)+P(M-O)

∧

(5)÷(40R²C²)→Z:Z

∧

(3)÷(6RC)→H:J-H→W:If

RC<2WZ:Then RC÷W→Z:Else((RC-((R²C²-2RCWZ)))÷W→Z:IfEnd ＂K=＂:M-PZ→K◢ K+PZ

∧

(5)÷(40R²C²)→V:Z

∧

(3)÷(6RC)→H:((O-V)²+(J-H)²)→W:If

JH:Then＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9

Lbl 9:346.050→H:26470→B:40000→V:0.03→I:0.02098→J ?K:VAbs ((J-I)÷2→U:B-K→O:1→W:If I>J:Then-1→W:I fEnd If K<0:Then Goto 9

Else If KElse If K＂GC=＂:H-OP+ZW(U-Abs(0))²÷(2V)→P◢ ?Z:?S:If Z>P-1:Then＂L=＂:P+1.5+S→L◢ L-Z-S→B:＂P=＂((5.3-Q)²+B²)-S→P◢

Else If Z((5.3+Q)²+B²)-S→P◢

ZBZS(坐标正算)通用版

?D:?A:?R:?C:C²÷24÷R-C(4)÷2688÷R(3)→P:C÷2- C(3)÷240÷R²→Q:90C÷π÷R→B: (R+P)tan(Abs(A)÷2)+Q→T:(R+P)÷cos(A÷2)-R→J:(Abs(-A)-(2B))πR÷180+2C→L: ＂G＂:D-T→G◢ ＂H＂:G+C→H◢

G+L÷2→W: ＂Z＂:G+L-C→Z◢ ＂M＂:G+L→M◢

?N:?Z:?I:?F:If A<0:Then-1→S:Else 1→S:IfEnd

F+A÷2+90S→U:J+R→V: ＂B＂:N+Vcos(U)→B: ＂O＂:E+Vsin(U)→O Lbl 1:?K:If KG:Then G+T-K→L:F+180→V:F→U:Goto 2:IfEnd

If KH:Then K-G→L:L-L(5)÷90÷(RC)²→V:30SL²÷(πRC)→L:F+180→

∧∧

∧

∧

P:F+L→Q:F+3L→U:Goto 4:IfEnd

If KZ:Then F+A÷2+180+90S+(K-W)×180S÷(Rπ)→L:L+90S→U:Goto 5:IfEnd

If KM:Then M-K→L:L-L(5)÷90÷(RC)²→V:30SL²÷(πRC)→L:F+A→P:F+A+180-L→Q:F+A-3L→U:Goto 4:IfEnd

If K>M:Then K-M+T→L:F+A→V:V→U:Goto 2:IfEnd ∧

Lbl 2:＂X=＂:N+Lcos(V)→X◢ ＂Y=＂:E+Lsin(V)→Y◢ Goto 6

Lbl 3:?Q:＂X=＂:X+Qcos(U+90)→X◢ ＂Y=＂:Y+Qsin(U+90)→Y◢ Goto 1

Lbl 4:＂X=＂:N+Tcos(P)+Vcos(Q)→X◢ ＂Y=＂:E:+Tsin(P)+Vsin(Q)→Y◢ Goto 6

Lbl 5:＂X=＂:B+Rcos(L)→X◢ ＂Y=＂:O+Rsin(L)→Y◢ Goto 6

Lbl 6:I=1Goto 3◢ Goto 1

使用说明： 反算说明：

1、N：交点X坐标， 2、A：转角值、左“-”右“+” ， R3、C：缓和曲线长度， T4、G：点第一缓和曲线起点里程， M5、F：计算方位角。 6、“X” “Y”实测坐标计算。 7、K：实测里程, Q8、Z：实测高程， S9、P:超欠挖“+”超“-”欠. 正算说明： 1、D:交点桩号， A2、R：半径， C3、G：缓和曲线起点里程， H: 4、Z:第二缓和曲线终点或圆曲线起点， M5、N交点X坐标， E6、I：输入1, F: 7、K：里程， 8、Q ：偏距 E（Z）：交点Y坐标。

：平曲线半径。 ：切线长度。 ：点第二缓和曲线终点里程。 ：实测里程偏距。 ：设计断面圆心半径。 ：转角值、左“-”右“+” 。 ：缓和曲线长度。 第一缓和曲线终点或圆曲线起点。 ：第二缓和曲线终点。 ：N交点Y坐标。 计算方位角. “X” “Y”实设计坐标。 “X” “Y”计算坐标。

长旺2号左洞

仰供：Lbl 9:?Z:?S: ＂Q=＂369.657+(K-26966)×0.02098+S→O◢ O-Z-S→B:＂P=＂: ((5.3+Q)²+B²)-S→P◢

Goto 0

洞身：Lbl 9:?Z:?S: ＂Q=＂357.957+(K-26966)×0.02098+S→O◢ O-Z-S→B:＂P=＂: Goto 0

长旺2号右洞

仰供：Lbl 9:?Z:?S: ＂Q=＂370.014+(K-26990)×0.0207+S→O◢ O-Z-S→B:＂P=＂: ((5.3-Q)²+B²)-S→P◢ ((5.3+Q)²+B²)-S→P◢

Goto 0

洞身：Lbl 9:?Z:?S: ＂Q=＂358.314+(K-26990)×0.0207+S→O◢ O-Z-S→B:＂P=＂: Goto 0

河背沟左洞

仰供：Lbl 9:?Z:?S: ＂Q=＂369.657+(K-26966)×0.02098+S→O◢ O-Z-S→B:＂P=＂: ((5.3-Q)²+B²)-S→P◢ ((5.3-Q)²+B²)-S→P◢

Goto 0

洞身：Lbl 9:?Z:?S: ＂Q=＂3357.957+(K-26966)×0.02098+S→O◢ O-Z-S→B:＂P=＂: Goto 0

河背沟右洞

仰供：Lbl 9:?Z:?S: ＂Q=＂370.014+(K-26990)×0.0207+S→O◢ O-Z-S→B:＂P=＂: ((5.3+Q)²+B²)-S→P◢ ((5.3-Q)²+B²)-S→P◢

Goto 0

洞身：Lbl 9:?Z:?S: ＂Q=＂358.314+(K-26990)×0.0207+S→O◢ O-Z-S→B:＂P=＂: Goto 0

((5.3+Q)²+B²)-S→P◢

FS(坐标反算)通用版《更新版》

?N:?E:?A:?R:?C:?T:?G:?M:?F

Lbl 0:?X:?Y:If G0:Then 1→Z:Else -1→Z:IfEnd Pol(X-N,Y-E:If G>M:Then Goto 3:IfEnd G+PT+Rec(I,J-U)→S:J→D If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9

Else Goto 4:IfEnd

Lbl 3:If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD→Q◢ Goto 9

Lbl 4:C²÷24÷R-C(4)÷2688÷R(3)→W:C÷2-C(3)÷240÷R²→V:90C÷π÷R→B:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEnd

P(S-G)+P(S-G)(5)÷40÷R²÷C²→Z:Z(3)÷(6RC)→H:If A>0:Then D-H→W:Else –D-H→W:IfEnd

If RC2WC:Then RC÷W→Z:Else ((RC-(R²C²-2RCWZ)))÷W→Z:Ifend ＂K=＂:G+PZ→K◢

K-PZ(5)÷(40R²C²)→V:Z(3)÷(6RC)→H:If A<0:Then -1→Z:Else 1→Z:IfEnd

((S-V)²+(ZD-H)²)→W:If ZDH:Then ＂Q=＂:W→Q◢

Else ＂Q=＂:-W→Q◢ IfEnd Goto 9

Lbl 5：(90+J)π÷180-C÷(2R)→J:If RJP(M-G)-2C: Then Goto 6: Ifend ＂K=＂:G+P(C+JR)→K◢ ＂Q=＂:R-I→Q◢ Goto 9

Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:If G>M:Then Goto 7:IfEnd

If O>M:Then ＂k=＂:O→K◢ ＂Q=＂J→Q◢ Goto 9

Else Goto 8

Lbl 7:If OM:Then ＂K=＂:O→K◢ ＂Q=＂:J→Q◢

∧

∧

∧

∧

∧

∧

∧

Ifend Goto 9

Lbl 8:P(M-O)+P(M-O)

∧

(5)÷(40R²C²)→Z:Z

∧

(3)÷(6RC)→H:J-H→W:If

RC<2WZ:Then RC÷W→Z:Else((RC-((R²C²-2RCWZ)))÷W→Z:IfEnd ＂K=＂:M-PZ→K◢ K+PZ

∧

(5)÷(40R²C²)→V:Z

∧

(3)÷(6RC)→H:((O-V)²+(J-H)²)→W:If

JH:Then＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9

Lbl 9:346.050（变坡点高程）→H:26470（里程）→B:40000（半径）→V:0.03（前坡度）→I:0.02098（后坡度）→J

?K:VAbs(J-I) ÷2→U:B-K→O:1→W:If I>J:Then -1→W:IfEnd If K<0:Then Goto 9

Else If KElse If K＂P=＂:H-OP+ZW(U-Abs(O))² ÷(2V) →P◢ ?Z:?S: ＂L=＂:P+1.5+S→L◢

L-Z-S→B: ＂P=＂: ((5.3-Q)²+B²)-S→P◢ Goto 0

红色字体需要更改