隧道超欠挖5800计算程序
ZBFS(坐标反算通用版《老版本》
?N:?E:?A:?R:?C:?T:?G:?M:?F
Lbl 0:?X:?Y:If G → P:Else -1 → P:IfEnd If P=1:Then F→U:Else P=-1: Then F+A→U:IfEnd If A>0: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 SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9
Else Goto 4:IfEnd
Lbl 3:If SG: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 JB-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 RC2WC: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 ZDH:Then ＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9
Lbl 5(90+Jπ÷180-C÷(2R→J:If RJP(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 OM: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 JH:Then＂Q=＂:W→Q◢
Else ＂Q=＂:-W→Q◢ IfEnd Goto 9
Lbl 9:?Z:?S: ＂Q=＂357.957（变坡点高程）+(K-26966 （里程）×0.02098
（坡度）+S→O◢
O-Z-S→B:＂P=＂: ((5.3+Q²+B²-S→P◢ Goto 0
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+Ptan(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 KG:Then G+T-K→L:F+180→V:F→U:Goto 2:IfEnd If KH: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 KZ:Then F+A÷2+180+90S+(K-W×180S÷(Rπ→L:L+90S→U:Goto 5:IfEnd If KM: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=1Goto 1 使用说明： 反算说明：
1、N：交点X坐标， E：交点Y坐标。
2、A：转角值、左“-”右“+” ， R：平曲线半径。 3、C：缓和曲线长度， T：切线长度。
4、G：点第一缓和曲线起点里程， M：点第二缓和曲线终点里程。 5、F：计算方位角。
6、“X” “Y”实测坐标计算。 7、K：实测里程, Q：实测里程偏距。
Goto 3◢
8、Z：实测高程， S：设计断面圆心半径。 9、P:超欠挖“+”超“-”欠. 正算说明：
1、D:交点桩号， A：转角值、左“-”右“+” 。 2、R：半径， C：缓和曲线长度。
3、G：缓和曲线起点里程， H: 第一缓和曲线终点或圆曲线起点。 4、第二缓和曲线终点或圆曲线起点， M：第二缓和曲线终点。 5、N交点X坐标， Z：N交点Y坐标。 6、I：输入1, F: 计算方位角.
7、K：里程， “X” “Y”实设计坐标。 8、Q ：偏距 “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=＂: ((5.3+Q²+B²-S→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◢ Goto 0
洞身：Lbl 9:?Z:?S: ＂Q=＂358.314+(K-26990×0.0207+S→O◢ O-Z-S→B:＂P=＂: ((5.3-Q²+B²-S→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◢ Goto 0
洞身：Lbl 9:?Z:?S: ＂Q=＂3357.957+(K-26966×0.02098+S→O◢ O-Z-S→B:＂P=＂: ((5.3-Q²+B²-S→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◢ Goto 0
洞身：Lbl 9:?Z:?S: ＂Q=＂358.314+(K-26990×0.0207+S→O◢ O-Z-S→B:＂P=＂: ((5.3+Q²+B²-S→P◢ Goto 0
FS(坐标反算通用版《更新版》
?N:?E:?A:?R:?C:?T:?G:?M:?F
Lbl 0:?X:?Y:If G → P:Else -1 → P:IfEnd If P=1:Then F→U:Else P=-1: Then F+A→U:IfEnd If A>0: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 SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9
Else Goto 4:IfEnd
Lbl 3:If SG: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 JB-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 RC2WC: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 ZDH:Then ＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9
Lbl 5(90+Jπ÷180-C÷(2R→J:If RJP(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 OM: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 JH: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 K → Z:I → P Else If K → Z:I → P
Else If K → Z:I → P:Else 0 → Z:J → P IfEnd: IfEnd: IfEnd IfEnd
＂P=＂:H-0P+ZW(U-Abs(0² ÷(2V →P◢ ?Z:?S: ＂L=＂:P+1.5+S→L◢
L-Z-S→B: ＂P=＂: ((5.3-Q²+B²-S→P◢ Goto 0
红色字体需要更改
因篇幅问题不能全部显示，请点此查看更多更全内容