5800隧道專版(重點)

1、5800隧道專版本版本是道路版的升級版，程序只改變了SHELL程序，從SHELL中拆分出WORK-SET(工作設(shè)置程序)，加入SDPY(隧道放樣)。 FileName:RESET    初始化程序 Norm 1:50C:12345J "RESET PW"?I:I=J=>500DimZ   為數(shù)據(jù)庫增加額外變量500個，在SET、SETPFDYS程序根據(jù)實際再增減變量以保證不浪費內(nèi)存 50ZC+22：本程序設(shè)置變量個數(shù)目前50個剛剛夠用。 "PASSWORDS"?I:IZC+39 

2、     重設(shè)要素保護密碼 Cls:Stop FileName:DATLOCK      要素保護密碼確定認程序 Cls:Norm 1:50C "PASSWORDS"?J:Cls:JZC+39=>Stop FileName:SHELL(外殼程序) 50C    在擴充變量預留前50個給別的程序用。如不夠就適量加大。RESET，SHELL，SET，SETPFDYS，這幾個程序中C值必需一致 Norm 1 ZC+23N當前分

3、段要素N坐標 ZC+24E當前分段要素E坐標 ZC+25M當前分段要素起點樁號 ZC+26H當前分段要素起點方位角（正北）單位：弧度 ZC+27A當前分段要素起點曲率有左偏負右偏正（注意不是半徑） ZC+28R當前分段要素終點曲率有左偏負右偏正（注意不是半徑） ZC+29L當前分段要素長度 ZC+3W   斜樁角度 Lbi S Prog"PROGMODE" ;進入模式功能選擇 Lbi A Deg:Norm 1:Cls ZC+1G:"ZH"?G    樁求樁號 If G=-1:Then Prog&

4、quot;WORK-SET":Goto S:IfEnd    進入工作設(shè)置 GZC+1 ZC+2B:"JL"?B:BZC+2 ;B橫向距離，左正右負 Lbi B Prog "ZBJS"     ;坐標正算 Fix 3:Cls ;設(shè)置三位小數(shù) "ZH":Locate 4,1,G ;第一行顯示樁號 "X":Locate 3,2,X ;第二行顯示X(N)坐標 "Y":Locate 3,3,Y；第三行顯示Y(E)坐

5、標 Prog "GCJS"     ;高程計算 "Z":Locate 2,4,Z+ZC+41 ；第四行顯示Z坐標 Locate 10,4,B         ；第四行顯示橫向距離 0I Do:I+1I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or Getkey=26) ;鎖定鍵盤，并在幾十秒后自動返回 Getkey=57=> Goto 1 If Getkey=26=

6、> Prog "SDFY":Goto B:EndIf Pol(ZC+35-X,ZC+36-Y) Cls:"DL":Locate 3,1,I:Locate 12,1,ZC+45 "":Locate 3,2,B:Locate 12,2,ZC+49 "FWJ" J<0=>J+360J:JDMS JZC+46 IZC+47 Goto 1 FileName：SDFY 隧道放樣 Cls ZC+2V ZC+41D ZC+43I:"DQD-Z"?I:IZC+43 ZC+42J:"R&

7、quot;?J:JZC+42 ZC+40K:"R-DL"?K:KZC+40 Abs(V-K)P (P2+(I-Z-D)2)U     計算實際半徑 Fix 3:Cls ;設(shè)置三位小數(shù) "ZH":Locate 4,1,G "R":Locate 2,2,U Locate 10,2,U-J If I-Z-D-J>0 :Then I-Z-D-(J2-P2)P:0O Else If P-J>0:Then P-(J2-(I-Z-D)2)O:0P Else P-(J2-(I-Z-D)2)O:I-Z

8、-D-(J2-P2)P IfEnd:IfEnd "H":Locate 2,3,O Locate 8,3,"V" Locate 9,3,P Locate 1,4,Z+D Locate 9,4,I 0T Do:T+1T:T=1000=>Return:LpWhile Not(Getkey=57 Or Getkey=27) ;鎖定鍵盤，并在幾十秒后自動返回 Getkey=57=>Return If V-K>0 :Then V-OB:Else V+OB:IfEnd FileName：ZBJS  坐標計算程序 Prog"

9、;READDAT" Rad G-MQ IF AR=0 :Then If A=R :Then 1J:Else 3J :IfEnd:Else If A=R :Then 2J:Else 3J:IfEnd:IfEnd 判斷線元類型 If J=1 :Then HF:N+QCos(H)X:E+QSin(H)Y:IfEnd   直線段直接計算 If J=2 :Then H+QRF:Rec(Abs(2Sin(Abs(0.5QR)÷R),H+QR÷2):N+IX:E+JY:IfEnd  圓弧段直接計算 If J=3 :Then Goto 5

10、:IfEnd X+BCos(F+W)X Y+BSin(F+W)Y Deg:Return Lbi 5     用五點通用坐標計算計算緩和段 0.5(R-A)÷LK AQI KQ2J 0.0469100770P:H+IP+JP2O 0.2307653449P:H+IP+JP2T 0.5P         :H+IP+JP2D 0.7692346551P:H+IP+JP2F 0.9530899230P:H+IP+JP2P 0.1184634425I 0.239314335

11、2J 0.2844444444Y N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)X E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P)Y H+AQ+KQ2F X+BCos(F+W)X Y+BSin(F+W)Y Deg:Return FileName:TURNZH(坐標反算) Prog"INNEZ" ZC+37U ZC+38V 0B：M+L÷2G：Prog"ZBJS" Lbi S:Rad U-XI:V-YJ If I=0 And J=0 :Then Goto A:IfEn

12、d Pol(I,J) Lbi A:Rec(I,J-F) G+IG:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S JB GZC+1 JZC+2 Prog"GCJS" FileName：INNEZ 實測坐標輸入程序 Lbl S:Norm 1:Cls ZC+50=2=>Goto 1 ZC+37I I<0=>Goto 1 "DQD-N"?I     輸入待求點N坐標 I<0=>Goto 1 IZC+37 ZC+38I:"D

13、QD-E"?I    輸入待求點E坐標 I<0=>Goto 1 IZC+38 ZC+43I:"DQD-Z"?I 輸入實測高程 I<0=>Goto 1 IZC+43     Return Lbi 1 I=-1=>Then 2ZC+50 If I=-2:Then Prog"WORK-SET":Goto S:IfEnd    進入工作設(shè)置 Prog"INFWJDLDH" ZC+50=

14、1=>Goto S Return FileName：INFWJDLDH實測坐標（用方位角，距離，高差）輸入程序 Lbi S:Deg:Norm 1:Cls ZC+46J:"DQD-FWJ"?J J<0=>Goto 1 JZC+46 ZC+47I:"DQD-DL"?I:IZC+47 ZC+48K:"DQD-DZ"?K:KZC+48 ZC+49P:"RHT"?P:PZC+49 Rec(I,J) ZC+35+IZC+37 ZC+36+JZC+38 ZC+44+ZC+45+K-PZC+43 Return L

15、bi 1 If J=-2:Then Prog"WORK-SET":Goto S:IfEnd      進入工作設(shè)置 1ZC+50 Return FileName: WORK-SET 測站設(shè)置程序 Norm 1:Cls 50C ZC+32I:"DAT1 2 3"?I:IZC+32  平曲線要素數(shù)庫類型選擇1為內(nèi)置式，2文件式，3實時輸入(查看當前要素值) ZC+4I:"0 1 2 3"?I:IZC+4   選擇本程序模式0為坐標正算，1坐

16、標反算，2橫向邊仰坡放樣，3，縱向邊仰坡放樣(隧道進出口用到) ZC+41I:"GC-DH"?I:IZC+41     放樣點高差常數(shù) ZC+35I:"STATION-N"?I:IZC+35      設(shè)置測站N坐標 ZC+36I:"STATION-E"?I:IZC+36      設(shè)置測站E坐標 ZC+44I:"STATION-Z"?I:IZC+44設(shè)置測

17、站Z坐標 ZC+45I:"STATION-HI"?I:IZC+45     設(shè)置儀高 Cls FileName: PROGMODE 程序功能模式選擇 ZC+4I I=0=>Return ;正算模式 I=1=>Prog"TURNZH"      反算模式 I=2=>Prog"HXBYP"     ;橫向邊仰坡放樣模式 I=3=>Prog"ZXBYP" ;縱

18、向邊仰坡放樣模式 FileName:HXBYP   橫向邊仰坡放樣程序 Cls:Norm 1 ZC+40I:"QPD-DL"?I:IZC+40    輸入起坡點與中樁距離常數(shù) ZC+41I:"QPD-DZ"?I:IZC+41       輸入起坡點與中樁高差常數(shù) ZC+42I:"i"?I:IZC+42          

19、;  輸入邊仰坡坡度，左仰坡(路塹)為正，右仰坡(路塹)為負，左邊坡為負，右邊坡為正 Cls:ZC+43I:"DQD-Z"?I:IZC+43     輸入實測高程 Prog"TURNZH" Prog "GCJS" (ZC+43-Z-ZC+41)ZC+42+ZC+40B Fix 3:B-ZC+2 顯示與設(shè)計位置的偏差 BZC+2 FileName:ZXBYP  縱向仰坡放樣程序(隧道進口使用) Cls:Norm 1:ZC+33I:"QPD-ZH&q

20、uot;?I:IZC+33    輸入起坡點樁號 ZC+34I:"QPD-Z"?I:IZC+34       輸入起坡點高程 ZC+42I:"i"?I:IZC+42            仰坡時(隧道進出口仰坡，進口為正，出口為負) Cls:ZC+43I:"DQD-Z"?I:IZC+43  

21、0;  輸入實測高程 Prog"TURNZH" ZC+42(ZC+43-ZC+34)+ZC+33G Fix 3:G-ZC+1 顯示與設(shè)計位置的偏差 GZC+1 FileName:SET 設(shè)置程序 Lbi S Norm 1 50C 50ZC+22 本程序設(shè)置變量個數(shù)目前50個剛剛夠用。 0K ZC+5I:"1 Or 2"?I:IZC+5 ;選擇1線或者2線 180ZC+3÷J:"XZJJ"?J:J÷180ZC+3;斜樁夾角 If I=1:Then ZC+8ZC+6:ZC+9ZC+7 ZC+12ZC+16:Z

22、C+13ZC+17:ZC+18ZC+20 Else ZC+10ZC+6:ZC+11ZC+7 ZC+14ZC+16:ZC+15ZC+17:ZC+19ZC+20 IfEnd   ZC+7+3ZC+31 0I:"1PQX,2SQX,3YSDS"?I   1輸入平曲線要素，2輸入豎曲線要素，3輸入1、2線夾平豎曲線交點(變坡點)數(shù)量以讓程序規(guī)劃內(nèi)存建立要素數(shù)據(jù)為，其它值退出本程序 I0=>Prog"DATLOCK" I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3

23、Prog"SETPFDYS" Stop Lbi 1 ;平曲線要素輸入部分 ZC+6D -1ZD+3 For 1J To ZC+16 Cls:"PQX":Locate 9,1,J ZD+1I:"N"?I:IZD+1     請輸入N坐標 ZD+2I:"E"?I:IZD+2 ;請輸入E坐標 ZD+3I:"R"?I:IZD+3      ;請輸入半徑R ZD+4I:"LS1"?I:IZD+4 ;請輸入緩

24、和曲線1長度 ZD+5I:"LS2"?I:IZD+5        請輸入緩和曲線2長度 D+5D Next 1ZD-2 Goto S Lbi 2                             

25、60; ;豎曲線要素輸入部分 ZC+7D -1ZD+3 For 1J To ZC+17 Cls:"SQX":Locate 9,1,J ZD+1I:"BPDZH"?I:IZD+1     請輸入變坡點樁號 ZD+2I:"BPDGC"?I:IZD+2 ;請輸入變坡點高程 ZD+3I:"R"?I:IZD+3         ;請輸入半徑R D+3D Next 1ZD Goto S Lbi 3 

26、                            ;要素點數(shù)輸入部分 ZC+12I:"1PQXDS"?I:IZC+12 ;輸入1線平曲線點數(shù),最小值為3 ZC+13I:"1SQXDS"?I:IZC+13 ;輸入1線豎曲線點數(shù),最小值為3 ZC+18I:"1JDZH"

27、;?I:IZC+18     輸入1線平曲線第一個交點的交點樁號 ZC+14I:"2PQXDS"?I:IZC+14 ;輸入2線平曲線點數(shù),最小值為3 ZC+15I:"2SQXDS"?I:IZC+15 ;輸入2線豎曲線點數(shù),最小值為3 ZC+19I:"2JDZH"?I:IZC+19 ;輸入2線平曲線第一個交點的交點樁號 C+ZC+22ZC+8             &

28、#160; 1線路平曲線要素指針偏移基數(shù) ZC+8+5ZC+12ZC+9              1線路豎曲線要素指針偏移基數(shù) ZC+9+3ZC+13ZC+10         2線路平曲線要素指針偏移基數(shù)         ZC+10+5ZC+14ZC+11   &#

29、160;  2線路豎曲線要素指針偏移基數(shù) ZC+11+3ZC+15ZC+21     要素數(shù)據(jù)庫結(jié)束指針 ZC+21+1ZC+30 ZC+21DimZ                 增加額外變量 -1K Goto S FileName:SETPFDYS   交點要素=>分段要素 Norm 1 50C Rad ZC+6+5D ZC+21+1F F+6D

30、imZ -1ZF          設(shè)置分段要素開始標志 ZC+20V         ; 從數(shù)據(jù)庫讀入當前線第一個平曲線交點樁號 0G Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；計算第一條直線的距離I，計算方位角J JH ZD-4ZF+1          直線段 ZD-3ZF+2 V-IZF+3 For

31、1G To ZC+16-2   Pol(ZD+1-ZD-4,ZD+2-ZD-3)    ；計算第本交點與下一交點的距離I，計算方位角J JH Pol(ZD+6-ZD+1,ZD+7-ZD+2) IW:J-HK                             ；計算轉(zhuǎn)角K，負

32、值是左轉(zhuǎn)角，正值是右轉(zhuǎn)角 IF Abs(K)>:Then If K>0:Then K-2K:Else K+2K:IfEnd:IfEnd ZD+3R ;從數(shù)據(jù)庫讀入半徑R ZD+4L ;從數(shù)據(jù)庫讀入緩和曲線1長度 ZD+5M ;從數(shù)據(jù)庫讀入緩和曲線2長度 L÷2÷RB ;計算緩和曲線1的B0角 M÷2÷RO ;計算緩和曲線2的B0角 (Abs(K)-B-O)RP ;計算圓曲線長度 L2÷24÷R-L(4) ÷2384÷R(3) Q      內(nèi)移

33、值計算方法2 L÷2-L(3) ÷240÷R2S     ;切線增長值計算方法2 M2÷24÷R-M(4) ÷2384÷R(3) J      內(nèi)移值計算方法2 M÷2-M(3) ÷240÷R2I     ;切線增長值計算方法2 Abs(÷2- Abs(K) A Rtan(Abs(K÷2)+S+J÷Cos(A)-QTan(A)T

34、 ;計算切線1 Rtan(Abs(K÷2)+I+Q÷Cos(A)-JTan(A)U ;計算切線2 H<0=>H+2H 1A K<0 =>-1A HZF+4 0ZF+5 0ZF+6 F+6F F+6DimZ Rec(T,H)緩和段1 ZD+1-IN ZD+2-JE NZF+1 EZF+2 V-TZF+3 L=0=>Goto A HZF+4 0ZF+5 A÷RZF+6 F+6F F+6DimZ Lbi A圓弧段 0I:0J L=0=>Goto B Pol(L-L(3)÷40÷R2,L2÷6÷R

35、-L(4)÷336÷R(4) Lbi B Rec(I,H+AJ) N+IN E+JE NZF+1 EZF+2 V-T+LZF+3 H+ABZF+4 A÷RZF+5 A÷RZF+6 F+6F F+6DimZ M=0=>Goto C        緩和段2 Rec(2RSin(0.5P÷R),H+AB+AP÷R÷2) N+IN E+JE NZF+1 EZF+2 V-T+L+PZF+3 H+AB+AP÷RZF+4 A÷RZF+

36、5 0ZF+6 F+6F F+6DimZ Lbi C Rec(U,H+K) ZD+1+IZF+1 ZD+2+JZF+2 V-T+L+P+MZF+3 V-T+L+P+M-U+WV D+5D Next H+KZF+4 0ZF+5 0ZF+6 F+9DimZ 1ZF+7 VZF+9   要素終點樁號 Deg FileName：READDAT ZC+32I I=3=>Prog"READDAT3" If G<M Or G>M+L  :Then ;驗證要素是否可用，否則重設(shè)要素 I=1=>Prog"READDAT

37、1" I=2=>Prog"READDAT2" Prog"READDAT3"   IfEnd FileName:READDAT1 平曲線分段要素讀取程序1 ZC+30F 0J Lbi 1           搜索要素 If G<ZF+3:Then -1=ZF=>Goto E:F-6F:-1J:Goto 1 Else 1=ZF+1=>Goto E:-1=J=>Goto 2:1J:F+6F:Goto 1

38、 IfEnd Lbi 2 FZC+30 ZF+1ZC+23當前分段要素N坐標 ZF+2ZC+24當前分段要素E坐標 ZF+3ZC+25當前分段要素起點樁號 ZF+4C+26當前分段要素起點方位角（正北） ZF+5ZC+27當前分段要素起點曲率有左偏負右偏正（注意不半徑） ZF+6ZC+28  當前分段要素終點曲率有左偏負右偏正（注意不半徑） ZF+9-ZF+3ZC+29  當前分段要素長度 Return Lbi E Cls "ERROR" Stop READDAT2文件請輸入內(nèi)容為以下內(nèi)容以便測試結(jié)果與本文一致。 ÷180J

39、 Goto 1 Lbi 1 If G<30008.396:Then Cls:Stop:IfEnd ;判斷待求樁號是否小于本要素起點，如小于就停止運行程序 If G<30661.038(終點里程):Then 2851422.090(起點X)N:513896.440(起點Y)E:30008.396M:213°3252J(起點方位角)H:0(起點曲率)A:0(終點曲率)R:652.642起點至終點長度L:Goto E:IfEnd If G<30921.038:Then 2850878.162N:513535.768E:30661.038M:213°3252JH:0A:1÷1300R:260L:Goto E:IfEnd If G<31426.367:Then 2850666.478N:513385.004E:30921.038M:219°1639JH:1÷1300A:1÷1300R:505.328L:Goto E:IfEnd If G<31686.367:Then 2850346.483N:512998.015E