5800隧道專版(重點(diǎn))

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

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

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

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

5、標(biāo) Prog "GCJS"     ;高程計(jì)算 "Z":Locate 2,4,Z+ZC+41 ；第四行顯示Z坐標(biāo) Locate 10,4,B         ；第四行顯示橫向距離 0I Do:I+1I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or Getkey=26) ;鎖定鍵盤(pán)，并在幾十秒后自動(dòng)返回 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     計(jì)算實(shí)際半徑 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) ;鎖定鍵盤(pán)，并在幾十秒后自動(dòng)返回 Getkey=57=>Return If V-K>0 :Then V-OB:Else V+OB:IfEnd FileName：ZBJS  坐標(biāo)計(jì)算程序 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   直線段直接計(jì)算 If J=2 :Then H+QRF:Rec(Abs(2Sin(Abs(0.5QR)÷R),H+QR÷2):N+IX:E+JY:IfEnd  圓弧段直接計(jì)算 If J=3 :Then Goto 5

10、:IfEnd X+BCos(F+W)X Y+BSin(F+W)Y Deg:Return Lbi 5     用五點(diǎn)通用坐標(biāo)計(jì)算計(jì)算緩和段 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(坐標(biāo)反算) 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 實(shí)測(cè)坐標(biāo)輸入程序 Lbl S:Norm 1:Cls ZC+50=2=>Goto 1 ZC+37I I<0=>Goto 1 "DQD-N"?I     輸入待求點(diǎn)N坐標(biāo) I<0=>Goto 1 IZC+37 ZC+38I:"D

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

14、1=>Goto S Return FileName：INFWJDLDH實(shí)測(cè)坐標(biāo)（用方位角，距離，高差）輸入程序 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      進(jìn)入工作設(shè)置 1ZC+50 Return FileName: WORK-SET 測(cè)站設(shè)置程序 Norm 1:Cls 50C ZC+32I:"DAT1 2 3"?I:IZC+32  平曲線要素?cái)?shù)庫(kù)類型選擇1為內(nèi)置式，2文件式，3實(shí)時(shí)輸入(查看當(dāng)前要素值) ZC+4I:"0 1 2 3"?I:IZC+4   選擇本程序模式0為坐標(biāo)正算，1坐

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

17、站Z坐標(biāo) 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    輸入起坡點(diǎn)與中樁距離常數(shù) ZC+41I:"QPD-DZ"?I:IZC+41       輸入起坡點(diǎn)與中樁高差常數(shù) ZC+42I:"i"?I:IZC+42          

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

20、uot;?I:IZC+33    輸入起坡點(diǎn)樁號(hào) ZC+34I:"QPD-Z"?I:IZC+34       輸入起坡點(diǎn)高程 ZC+42I:"i"?I:IZC+42            仰坡時(shí)(隧道進(jìn)出口仰坡，進(jìn)口為正，出口為負(fù)) Cls:ZC+43I:"DQD-Z"?I:IZC+43  

21、0;  輸入實(shí)測(cè)高程 Prog"TURNZH" ZC+42(ZC+43-ZC+34)+ZC+33G Fix 3:G-ZC+1 顯示與設(shè)計(jì)位置的偏差 GZC+1 FileName:SET 設(shè)置程序 Lbi S Norm 1 50C 50ZC+22 本程序設(shè)置變量個(gè)數(shù)目前50個(gè)剛剛夠用。 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線夾平豎曲線交點(diǎn)(變坡點(diǎn))數(shù)量以讓程序規(guī)劃內(nèi)存建立要素?cá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     請(qǐng)輸入N坐標(biāo) ZD+2I:"E"?I:IZD+2 ;請(qǐng)輸入E坐標(biāo) ZD+3I:"R"?I:IZD+3      ;請(qǐng)輸入半徑R ZD+4I:"LS1"?I:IZD+4 ;請(qǐng)輸入緩

24、和曲線1長(zhǎng)度 ZD+5I:"LS2"?I:IZD+5        請(qǐng)輸入緩和曲線2長(zhǎng)度 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     請(qǐng)輸入變坡點(diǎn)樁號(hào) ZD+2I:"BPDGC"?I:IZD+2 ;請(qǐng)輸入變坡點(diǎn)高程 ZD+3I:"R"?I:IZD+3         ;請(qǐng)輸入半徑R D+3D Next 1ZD Goto S Lbi 3 

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

27、;?I:IZC+18     輸入1線平曲線第一個(gè)交點(diǎn)的交點(diǎn)樁號(hào) ZC+14I:"2PQXDS"?I:IZC+14 ;輸入2線平曲線點(diǎn)數(shù),最小值為3 ZC+15I:"2SQXDS"?I:IZC+15 ;輸入2線豎曲線點(diǎn)數(shù),最小值為3 ZC+19I:"2JDZH"?I:IZC+19 ;輸入2線平曲線第一個(gè)交點(diǎn)的交點(diǎn)樁號(hào) 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     要素?cái)?shù)據(jù)庫(kù)結(jié)束指針 ZC+21+1ZC+30 ZC+21DimZ                 增加額外變量 -1K Goto S FileName:SETPFDYS   交點(diǎn)要素=>分段要素 Norm 1 50C Rad ZC+6+5D ZC+21+1F F+6D

30、imZ -1ZF          設(shè)置分段要素開(kāi)始標(biāo)志 ZC+20V         ; 從數(shù)據(jù)庫(kù)讀入當(dāng)前線第一個(gè)平曲線交點(diǎn)樁號(hào) 0G Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；計(jì)算第一條直線的距離I，計(jì)算方位角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)    ；計(jì)算第本交點(diǎn)與下一交點(diǎn)的距離I，計(jì)算方位角J JH Pol(ZD+6-ZD+1,ZD+7-ZD+2) IW:J-HK                             ；計(jì)算轉(zhuǎn)角K，負(fù)

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

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

34、 ;計(jì)算切線1 Rtan(Abs(K÷2)+I+Q÷Cos(A)-JTan(A)U ;計(jì)算切線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   要素終點(diǎn)樁號(hào) Deg FileName：READDAT ZC+32I I=3=>Prog"READDAT3" If G<M Or G>M+L  :Then ;驗(yàn)證要素是否可用，否則重設(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當(dāng)前分段要素N坐標(biāo) ZF+2ZC+24當(dāng)前分段要素E坐標(biāo) ZF+3ZC+25當(dāng)前分段要素起點(diǎn)樁號(hào) ZF+4C+26當(dāng)前分段要素起點(diǎn)方位角（正北） ZF+5ZC+27當(dāng)前分段要素起點(diǎn)曲率有左偏負(fù)右偏正（注意不半徑） ZF+6ZC+28  當(dāng)前分段要素終點(diǎn)曲率有左偏負(fù)右偏正（注意不半徑） ZF+9-ZF+3ZC+29  當(dāng)前分段要素長(zhǎng)度 Return Lbi E Cls "ERROR" Stop READDAT2文件請(qǐng)輸入內(nèi)容為以下內(nèi)容以便測(cè)試結(jié)果與本文一致。 ÷180J

39、 Goto 1 Lbi 1 If G<30008.396:Then Cls:Stop:IfEnd ;判斷待求樁號(hào)是否小于本要素起點(diǎn)，如小于就停止運(yùn)行程序 If G<30661.038(終點(diǎn)里程):Then 2851422.090(起點(diǎn)X)N:513896.440(起點(diǎn)Y)E:30008.396M:213°3252J(起點(diǎn)方位角)H:0(起點(diǎn)曲率)A:0(終點(diǎn)曲率)R:652.642起點(diǎn)至終點(diǎn)長(zhǎng)度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