1、隧道超欠挖5800計算程序zbfs(坐標反算)?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-90:the

2、n 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-h

3、w: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(坐標正算)?d:?a:?r:?c:c24r-c(4)2688r(3)p:c2- c(3)240rq:90crb(r+p)tan(abs(a)2)+qt:(r+p)cos(a2)-rj:

4、(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=1goto 3g

5、oto 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：第二緩和曲線

6、終點。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+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:?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.0