5800隧道超欠挖程序新版本

1、隧道超欠挖5800计算程序zbfs(坐标反算)通用版老版本?n:?e:?a:?r:?c:?t:?g:?m:?flbl 0:?x:?y:if g<m:then 1p:else -1p:ifendif p=1:then fu:else p=-1: then f+au:ifendif a>0:then 1z:else -1z:ifendpol(x-n,y-e:if g>m: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=

2、:zdqgoto 9lbl 4:c²÷24÷r-c(4)÷2688÷r(3)w:c÷2-c(3)÷240÷r²v:90c÷÷rb:pol(p(s-g)-v,zd-r-w):if jb-90:then goto 5:ifendp(s-g)+p(s-g)(5)÷40÷r²÷c²z:z(3)÷(6rc)h:if a>0:then d-hw:else d-hw:ifendif rc2wc:then rc÷wz:else

3、 (rc-(r²c²-2rcwz)÷wz:ifendk=:g+pzkk-pz(5)÷(40r²c²)v:z(3)÷(6rc)h:if a<0:then -1z:else 1z:ifend(s-v)²+(zd-h)²)w:if zdh:then q=:wqelse q=:-wqifendgoto 9lbl 5(90+j)÷180-c÷(2r)j:if rjp(m-g)-2c: then goto 6: ifendk=:g+p(c+jr)kq=:r-iqgoto 9lbl 6:pol

4、(p(s-g)-t,zd):m-p(t-rec(i,j-abs(a)o:if g>m:then goto 7:ifendif o>m:then k=:okq=jqgoto 9else goto 8lbl 7:if om:then k=:okq=:jqifendgoto 9lbl 8:p(m-o)+p(m-o)(5)÷(40r²c²)z:z(3)÷(6rc)h:j-hw:if rc<2wz:then rc÷wz:else(rc-(r²c²-2rcwz)÷wz:ifendk=:m-pzkk-pz(5)

5、÷(40r²c²)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(坐标正算)通用版?d:?a:?r:?c:c²÷24÷r-c(4)÷2688÷r(3)p:c÷2- c(3)

6、÷240÷r²q:90c÷÷rb(r+p)tan(abs(a)÷2)+qt:(r+p)÷cos(a÷2)-rj:(abs(-a)-(2b)r÷180+2cl: g:d-tgh:g+chg+l÷2w: z:g+l-czm:g+lm?n:?z:?i:?f:if a<0:then-1s:else 1s:ifendf+a÷2+90su:j+rv: b:n+vcos(u)b: o:e+vsin(u)olbl 1:?k:if kg:then g+t-kl:f+180v:fu:goto 2:i

7、fendif kh:then k-gl:l-l(5)÷90÷(rc)²v:30sl²÷(rc)l:f+180p:f+lq:f+3lu:goto 4:ifendif kz:then f+a÷2+180+90s+(k-w)×180s÷(r)l:l+90su:goto 5:ifendif km:then m-kl:l-l(5)÷90÷(rc)²v:30sl²÷(rc)l:f+ap:f+a+180-lq:f+a-3lu:goto 4:ifendif k>m:then

8、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=1goto 3goto 1使用说明：反算说明：1、n：交点x坐标， e：交点y坐标。2、a：转角值、左“-”右“+” ， r：平曲线半径。3、c：缓和曲线长度， t：切线长度

9、。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”计算坐

10、标。长旺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-sb:p=: (5.3-q)²+b²)-spgoto 0洞身：lbl 9

11、:?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=3

12、70.014+(k-26990)×0.0207+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(坐标反算)通用版更新版?n:?e:?a:?r:?c:?t:?g:?m:?flbl 0:?x:?y:if g<m:then 1p:else -1p:ifendif p=1:then fu:else p=-1: then f+au:ifendif a>0:

13、then 1z:else -1z:ifendpol(x-n,y-e:if g>m: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:c²÷24÷r-c(4)÷2688÷r(3)w:c÷2-c(3)÷240÷r²v:90c÷÷rb:pol(p(s-g)-v,zd-r-w):if jb-90:

14、then goto 5:ifendp(s-g)+p(s-g)(5)÷40÷r²÷c²z:z(3)÷(6rc)h:if a>0:then d-hw:else d-hw:ifendif rc2wc:then rc÷wz:else (rc-(r²c²-2rcwz)÷wz:ifendk=:g+pzkk-pz(5)÷(40r²c²)v:z(3)÷(6rc)h:if a<0:then -1z:else 1z:ifend(s-v)²+(zd-h)&

15、#178;)w:if zdh:then q=:wqelse q=:-wqifendgoto 9lbl 5(90+j)÷180-c÷(2r)j:if rjp(m-g)-2c: then goto 6: ifendk=:g+p(c+jr)kq=:r-iqgoto 9lbl 6:pol(p(s-g)-t,zd):m-p(t-rec(i,j-abs(a)o:if g>m:then goto 7:ifendif o>m:then k=:okq=jqgoto 9else goto 8lbl 7:if om:then k=:okq=:jqifendgoto 9lbl 8:p(

16、m-o)+p(m-o)(5)÷(40r²c²)z:z(3)÷(6rc)h:j-hw:if rc<2wz:then rc÷wz:else(rc-(r²c²-2rcwz)÷wz:ifendk=:m-pzkk-pz(5)÷(40r²c²)v:z(3)÷(6rc)h:(o-v)²+(j-h)²)w:if jh:thenq=:wqelse q=:-wqifendgoto 9lbl 9:346.050（变坡点高程）h:26470（里程）b:40000（半径）v:0.03（坡度）i:0.02098（坡度）j?k:vabs(j-i) ÷2u:b-ko:1w:if i>j:th