5800隧道超欠挖程序

1、隧道超欠挖5800计算程序ZBFS坐标反算)通用版老版本?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:lf G<M:The n 1 P:Else -1 P:lfE ndIf P=1:The n F U:Else P=-1: The n F+A U:IfE ndIf A>0:Then 1 Z:Else -1 Z:IfE ndPol(X-N,Y-E:If G>M:The n Goto 3:IfE ndG+PT+Rec(l,J-U) S:J D .If S <G:Then " K= :SKJ .Q= :ZD=QJGoto 9Else G

2、oto 4:IfE nd Lbl 3:If S _G:Then " K=' :S KJQ= :ZD QJGoto 9Lbl 4:C 2-24- R-CA (4) - 2688- R" (3) W:O 2-C” (3) - 240- R2 V:90C十 n-F B:Pol(P(S-G)-V,ZD-R-W):If J- B-90:Then Goto 5:IfEndAAP(S-G)+P(S-G) (5) - 40- R2十 C2 Z:Z (3) - (6RC) H:If A>0:Then D-H W:Else - D-H W:IfEndIf RC <2WC:T

3、hen RC-W Z:Else (RC-(R2C2-2RCWZ)片W Z:Ifend "K= :G+PZ KJAAK-PZ (5) - (40R2C2) V:Z (3) - (6RC) H:If A<0:Then -1 Z:Else 1 Z:IfE nd(S-V) 2+(ZD-H)2) W:If ZD _H:Then " Q= :W QJElse " Q= :-W QJIfEndGoto 9Lbl 5(90+J) n - 180-C- (2R) J:If RJ _P(M-G)-2C: Then Goto 6: Ifend"K=' :G+P(

4、C+JR) KJ” Q= :R-I QJGoto 9Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A) O:IfG>M:The n Goto7:IfE ndIf O>M:Then " k= ' ' :O KJ"Q= JQJGoto 9Else Goto 8Lbl 7:lf O<M:Then " K= :OKJQ= :J QJIfendGoto 9Lbl 8:P(M-O)+P(M-O)人(5) - (40R2C2) Z:Z 人(3) - (6RC) H:J-H W:lfRC<2WZ:Then

5、 RGW Z:Else(RC-(R 2C2-2RCWZ)十W Z:IfEnd .“ K= :M-PZ KJK-PZA (5) - (40R2C2) V:Z 人(3) - (6RC) H: (O-V) 2+(J-H) 2) W:IfJ _H:Then “ Q=' :W QJElse “ Q= :-W QJIfEndGoto 9Lbl 9:?Z:?S:“ Q= 357.957+(K- 26966) X 0.02098+4OJO-Z-SB:" P=' :. (5.3 +Q)2+B2)-S PJGoto 0ZBZS(坐标正算)通用版?D:?A:?R:?C:C2十 24- R-

6、CA (4) - 2688- RA (3) P:C十 2- C A (3) - 240- R2Q:90C - n - R B(R+P)tan(Abs(A) - 2)+Q T:(R+P) - cos(A - 2)-R J:(Abs(-A)-(2B) n R十 180+2C L: " G' :D-T GJH ' :G+C HJG+ 2 W: ' ' Z ":G+L-CZJ"M' :G+L MJ?N:?Z:?l:?F:lf A<0:The n-1 S:Else 1 S:IfE ndF+A 2+904U:J+R V: '

7、; B' :N+Vcos(U) B: " O ' :E+Vsin(U) OLbl 1:?K:If K<G:The n G+T-K L:F+180V:FU:Goto 2:IfE ndIf K < H:Then K-G L:L-L A (5) - 90- (RC)2 V:30SL2- ( n RC) L:F+180 P:F+LQ:F+3L U:Goto 4:IfE ndIf K < Z:Then F+A十 2+180+90S+(K-W)X 180S- (R n ) L:L+90S U:Goto 5:IfE ndIf K < M:Then M-K L

8、:L-L A (5) - 90 - (RC)2 V:30SL2 - ( n RC) L:F+A P:F+A+180-LQ:F+A-3L U:Goto 4:IfE ndIf K>M:The n K-M+T L:F+AV:V U:Goto 2:IfE ndLbl 2: ' X=' :N+Lcos(V) XJ'Y=' :E+Lsi n(V) YJGoto 6Lbl 3:?Q: ' X= :X+Qcos(U+90) XJ"Y= :Y+Qsin(U+90) 丫丄 Goto 1 .Lbl 4: " X= :N+Tcos(P)+Vcos(Q)

9、 X丄"Y= :E:+Tsin(P)+Vsin(Q) YJGoto 6 JLbl 5: " X= :B+Rcos(L) XJ“ Y=' :O+Rsin(L) YJGoto 6 JLbl 6:1=1 二 Goto 3 JGoto 1 J使用说明：反算说明：1、N :交点X坐标，2、A:转角值、左“-”右“ +”,3、 C:缓和曲线长度，T4、 G:点第一缓和曲线起点里程，M 5、F:计算方位角。6 “X”“Y”实测坐标计算7、K:实测里程,Q8、 Z实测高程，S9、P:超欠挖“+”超“-”欠.正算说明：1、 D:交点桩号，A2、 R:半径，C3、 G:缓和曲线起点里程

10、，H:4、第二缓和曲线终点或圆曲线起点，5、 N交点X坐标，Z6 1 :输入 1,F:7、K:里程，E :交点Y坐标。R:平曲线半径。:切线长度。:点第二缓和曲线终点里程。:实测里程偏距。:设计断面圆心半径。:转角值、左“-”右“ +” C:缓和曲线长度。 第一缓和曲线终点或圆曲线起点。M:第二缓和曲线终点。:N交点丫坐标。 计算方位角.“X”“ 丫实设计坐标。“X”“Y”计算坐标。8、Q :偏距长旺2号左洞仰供：Lbl 9:?Z:?S:"Q=369.657+(K- 26966) X 0.02098 +4O丄O-Z-SB:" P=':(5.3+Q)2+B2)-S P

11、 丄Goto 0 .洞身：Lbl 9:?Z:?S:"Q=357.957+(K- 26966) X 0.02098+4O丄O-Z-SB:" P=':(5.3+Q)2+B2)-S PJGoto 0 .长旺2号右洞仰供：Lbl 9:?Z:?S:"Q=370.014+(K- 26990) X 0.0207+4 OJO-Z-SB:" P=':(5.3-Q)2+B2)-S PJGoto 0洞身：Lbl 9:?Z:?S:"Q=358.314+(K- 26990) X 0.0207+4OJO-Z-SB:" P=':(5.3-Q

12、)2+B2)-S PJGoto 0河背沟左洞仰供：Lbl 9:?Z:?S:"Q=369.657+(K- 26966) X 0.02098 +4OJO-Z-SB:" P=':(5.3-Q)2+B2)-S PJGoto 0洞身：Lbl 9:?Z:?S:"Q=3357.957+(K-26966) X 0.02098+S OJO-Z-SB:" P=':(5.3-Q)2+B2)-S PJGoto 0河背沟右洞仰供：Lbl 9:?Z:?S:"Q=370.014+(K- 26990) X 0.0207+4 OJO-Z-SB:" P=

13、':(5.3+Q)2+B2)-S PJGoto 0洞身：Lbl 9:?Z:?S:"Q=358.314+(K- 26990) X 0.0207+4OJO-Z-SB:" P=':(5.3+Q)2+B2)-S PJGoto 0FS(坐标反算)通用版更新版?N:?E:?A:?R:?C:?T:?G:?M:?FLbl O:?X:?Y:lf G<M:The n 1 P:Else -1 P:lfE ndIf P=1:The n F U:Else P=-1: The n F+A U:IfE ndIf A>0:Then 1 Z:Else -1 Z:IfE ndPol

14、(X-N,Y-E:If G>M:The n Goto 3:IfE ndG+PT+Rec(l,J-U) S:J D .If S <G:Then " K= :SKJ ."Q= :ZD=QJ .Goto 9Else Goto 4:IfE ndLbl 3:If S _G:Then “ K=' :S KJQ= :ZD QJGoto 9Lbl 4:C 2-24- R-CA (4) - 2688十 R" (3) W:O 2-C” (3) - 240- R2 V:90C十 n-F B:Pol(P(S-G)-V,ZD-R-W):lf J- B-90:Then G

15、oto 5:IfEndP(S-G)+P(S-G) A (5) - 40- R2十 C2 Z:Z A (3) - (6RC) H:If A>0:Then D-H W:Else - D-H W:IfEndIf RC <2WC:Then RC-W Z:Else (RC- (R2C2-2RCWZ)十W Z:Ifend "K= :G+PZ KJK-PZA (5) - (40R2C2) V:Z A -(6RC) H:If A<0:Then -1 Z:Else 1 Z:IfE nd'(S-V) 2+(ZD-H)2) W:If ZD _H:Then " Q= :W

16、 QJElse " Q= :-W QJIfEndGoto 9Lbl 5(90+J) n - 180-C- (2R) J:If RJ -P(M-G)-2C: Then Goto 6: Ifend"K=' :G+P(C+JR) KJ” Q= :R-I QJGoto 9Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A) O:IfG>M:The n Goto7:IfE ndIf O>M:Then " k= ' ' :O KJ"Q= JQJGoto 9Else Goto 8Lbl 7:If O

17、<M:The n " K=' :OKJ"Q= :J QJIfendGoto 9 .Lbl 8:P(M-O)+P(M-O)人(5) - (40R2C2) Z:Z 人(3) - (6RC) H:J-H W:IfRC<2WZ:Then RGW Z:Else(RC-(R 2C2-2RCWZ)十W Z:IfEnd ."K= :M-PZ KJK-PZA (5) - (40R2C2) V:Z 人(3) - (6RC) H: .(O-V) 2+(J-H) 2) W:IfJ _H:Then" Q=' :W QJElse " Q= :-W QJIfEndGoto 9Lbl 9: 346.050 H:26470 B:40000 V:0.03 I: 0.02098J?K:VAbs(J-I) -2U:B-K O:1 W:If I>J:Then -1