为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

5800隧道超欠挖程序

2011-04-30 6页 doc 192KB 50阅读

用户头像

is_382485

暂无简介

举报
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 ...
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:?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+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坐标, E:交点Y坐标。 2、A:转角值、左“-”右“+” , R:平曲线半径。 3、C:缓和曲线长度, T:切线长度。 4、G:点第一缓和曲线起点里程, M:点第二缓和曲线终点里程。 5、F:计算方位角。 6、“X” “Y”实测坐标计算。 7、K:实测里程, Q:实测里程偏距。 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 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 K
/
本文档为【5800隧道超欠挖程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索