5800隧道专版(重点)参考word

《5800隧道专版(重点)参考word》由会员分享，可在线阅读，更多相关《5800隧道专版(重点)参考word（16页珍藏版）》请在装配图网上搜索。

1、5800隧道专版本版本是道路版的升级版，程序只改变了SHELL程序，从SHELL中拆分出WORK-SET(工作设置程序)，加入SDPY(隧道放样)。 FileName:RESET初始化程序 Norm 1:50C:12345J RESET PW?I:I=J=500DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量以保证不浪费内存 50ZC+22：本程序设置变量个数目前50个刚刚够用。 PASSWORDS?I:IZC+39重设要素保护密码 Cls:Stop FileName:DATLOCK要素保护密码确定认程序 Cls:Norm 1:50C PASSWORDS

2、?J:Cls:JZC+39=Stop FileName:SHELL(外壳程序) 50C;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致 Norm 1 ZC+23N当前分段要素N坐标 ZC+24E当前分段要素E坐标 ZC+25M当前分段要素起点桩号 ZC+26H当前分段要素起点方位角（正北）单位：弧度 ZC+27A当前分段要素起点曲率有左偏负右偏正（注意不是半径） ZC+28R当前分段要素终点曲率有左偏负右偏正（注意不是半径） ZC+29L当前分段要素长度 ZC+3W 斜桩角度 Lbi S ProgPROGMODE

3、 ;进入模式功能选择 Lbi A Deg:Norm 1:Cls ZC+1G:ZH?G;桩求桩号 If G=-1:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 GZC+1 ZC+2B:JL?B:BZC+2 ;B横向距离，左正右负 Lbi B Prog ZBJS ;坐标正算 Fix 3:Cls ;设置三位小数 ZH:Locate 4,1,G ;第一行显示桩号 X:Locate 3,2,X ;第二行显示X(N)坐标 推荐精选Y:Locate 3,3,Y；第三行显示Y(E)坐标 Prog GCJS ;高程计算 Z:Locate 2,4,Z+ZC+41 ；第四行显示Z坐标 L

4、ocate 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= 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 JJ+360J:JDMS JZC+46 IZC+47 Goto 1 F

5、ileName：SDFY 隧道放样 Cls ZC+2V ZC+41D ZC+43I:DQD-Z?I:IZC+43 ZC+42J:R?J:JZC+42 ZC+40K:R-DL?K:KZC+40 Abs(V-K)P (P2+(I-Z-D)2)U 计算实际半径 Fix 3:Cls ;设置三位小数 ZH:Locate 4,1,G R:Locate 2,2,U Locate 10,2,U-J If I-Z-D-J0 :Then I-Z-D-(J2-P2)P:0O Else If P-J0:Then P-(J2-(I-Z-D)2)O:0P Else P-(J2-(I-Z-D)2)O:I-Z-D-(J2-P

6、2)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-K0 :Then V-OB:Else V+OB:IfEnd FileName：ZBJS坐标计算程序 ProgREADDAT Rad G-MQ IF AR=0 :Then If A=R :Then 1J:Else 3J :I

7、fEnd: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+QR2):N+IX:E+JY:IfEnd圆弧段直接计算 If J=3 :Then Goto 5 :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

8、+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.2393143352J 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(坐标反算) Pr

9、ogINNEZ ZC+37U ZC+38V 0B：M+L2G：ProgZBJS Lbi S:Rad U-XI:V-YJ If I=0 And J=0 :Then Goto A:IfEnd 推荐精选Pol(I,J) Lbi A:Rec(I,J-F) G+IG:IF Abs(I)0.0001 :Then ProgZBJS:Goto S JB GZC+1 JZC+2 ProgGCJS FileName：INNEZ 实测坐标输入程序 Lbl S:Norm 1:Cls ZC+50=2=Goto 1 ZC+37I IGoto 1 DQD-N?I 输入待求点N坐标 IGoto 1 IZC+37 ZC+38I

10、:DQD-E?I输入待求点E坐标 IGoto 1 IZC+38 ZC+43I:DQD-Z?I 输入实测高程 IGoto 1 IZC+43 Return Lbi 1 I=-1=Then 2ZC+50 If I=-2:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 ProgINFWJDLDH ZC+50=1=Goto S Return FileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序 Lbi S:Deg:Norm 1:Cls ZC+46J:DQD-FWJ?J JGoto 1 JZC+46 ZC+47I:DQD-DL?I:IZC+47 ZC+48

11、K: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 推荐精选Lbi 1 If J=-2:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 1ZC+50 Return FileName: WORK-SET 测站设置程序 Norm 1:Cls 50C ZC+32I:DAT1 2 3?I:IZC+32平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) ZC+4I:0 1 2 3?I:IZC+4 选择本程序模

12、式0为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) ZC+41I:GC-DH?I:IZC+41 放样点高差常数 ZC+35I:STATION-N?I:IZC+35设置测站N坐标 ZC+36I:STATION-E?I:IZC+36设置测站E坐标 ZC+44I:STATION-Z?I:IZC+44设置测站Z坐标 ZC+45I:STATION-HI?I:IZC+45 设置仪高 Cls FileName: PROGMODE 程序功能模式选择 ZC+4I I=0=Return ;正算模式 I=1=ProgTURNZH;反算模式 I=2=ProgHXBYP ;横向边仰坡放样

13、模式 I=3=ProgZXBYP ;纵向边仰坡放样模式 FileName:HXBYP 横向边仰坡放样程序 Cls:Norm 1 ZC+40I:QPD-DL?I:IZC+40输入起坡点与中桩距离常数 ZC+41I:QPD-DZ?I:IZC+41 输入起坡点与中桩高差常数 ZC+42I:i?I:IZC+42输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正 Cls:ZC+43I:DQD-Z?I:IZC+43 输入实测高程 ProgTURNZH Prog GCJS (ZC+43-Z-ZC+41)ZC+42+ZC+40B Fix 3:B-ZC+2 显示与设计位置的偏差 BZ

14、C+2 FileName:ZXBYP纵向仰坡放样程序(隧道进口使用) Cls:Norm 1:ZC+33I:QPD-ZH?I:IZC+33输入起坡点桩号 ZC+34I:QPD-Z?I:IZC+34 输入起坡点高程 ZC+42I:推荐精选i?I:IZC+42仰坡时(隧道进出口仰坡，进口为正，出口为负) Cls:ZC+43I:DQD-Z?I:IZC+43 输入实测高程 ProgTURNZH ZC+42(ZC+43-ZC+34)+ZC+33G Fix 3:G-ZC+1 显示与设计位置的偏差 GZC+1 FileName:SET 设置程序 Lbi S Norm 1 50C 50ZC+22 本程序设置变量

15、个数目前50个刚刚够用。 0K ZC+5I:1 Or 2?I:IZC+5 ;选择1线或者2线 180ZC+3J:XZJJ?J:J180ZC+3;斜桩夹角 If I=1:Then ZC+8ZC+6:ZC+9ZC+7 ZC+12ZC+16:ZC+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线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程

16、序 I0=ProgDATLOCK I=1 = Goto 1:I=2 = Goto 2:I=3 = Goto 3 ProgSETPFDYS 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 ;请输入缓和曲线1长度 ZD+5I:LS2?I:IZD+5;请输入缓和曲线2长度 D+5D Next 1ZD-2 Goto S Lbi 2

17、 ;竖曲线要素输入部分 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 ;要素点数输入部分 ZC+12I:1PQXDS?I:IZC+12 ;输入1线平曲线点数,最小值为3 ZC+13I:1SQXDS?I:IZC+13 ;输入1线竖曲线点数,最小值为3 ZC+18I:1JDZH?I:IZC+18 ;输入1线平曲线第一个

18、交点的交点桩号 ZC+14I:2PQXDS?I:IZC+14 ;输入2线平曲线点数,最小值为3 ZC+15I:2SQXDS?I:IZC+15 ;输入2线竖曲线点数,最小值为3 ZC+19I:2JDZH?I:IZC+19 ;输入2线平曲线第一个交点的交点桩号 C+ZC+22ZC+8 1线路平曲线要素指针偏移基数 ZC+8+5ZC+12ZC+91线路竖曲线要素指针偏移基数 ZC+9+3ZC+13ZC+10 2线路平曲线要素指针偏移基数 ZC+10+5ZC+14ZC+112线路竖曲线要素指针偏移基数 ZC+11+3ZC+15ZC+21 要素数据库结束指针 ZC+21+1ZC+30 ZC+21DimZ

19、 增加额外变量 -1K Goto S FileName:SETPFDYS 交点要素=分段要素 Norm 1 50C Rad ZC+6+5D ZC+21+1F F+6DimZ -1ZF设置分段要素开始标志 ZC+20V ; 从数据库读入当前线第一个平曲线交点桩号 0G Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；计算第一条直线的距离I，计算方位角J JH ZD-4ZF+1直线段 ZD-3ZF+2 V-IZF+3 For 1G To ZC+16-2 Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；计算第本交点与下一交点的距离I，计算方位角J 推荐精选JH Pol(ZD+6-ZD+1,Z

20、D+7-ZD+2) IW:J-HK ；计算转角K，负值是左转角，正值是右转角 IF Abs(K):Then If K0:Then K-2K:Else K+2K:IfEnd:IfEnd ZD+3R ;从数据库读入半径R ZD+4L ;从数据库读入缓和曲线1长度 ZD+5M ;从数据库读入缓和曲线2长度 L2RB ;计算缓和曲线1的B0角 M2RO ;计算缓和曲线2的B0角 (Abs(K)-B-O)RP ;计算圆曲线长度 L224R-L(4) 2384R(3) Q;内移值计算方法2 L2-L(3) 240R2S ;切线增长值计算方法2 M224R-M(4) 2384R(3) J;内移值计算方法2

21、M2-M(3) 240R2I ;切线增长值计算方法2 Abs(2- Abs(K) A Rtan(Abs(K2)+S+JCos(A)-QTan(A)T ;计算切线1 Rtan(Abs(K2)+I+QCos(A)-JTan(A)U ;计算切线2 HH+2H 1A K-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 ARZF+6 F+6F F+6DimZ Lbi A圆弧段 0I:0J L=0=Goto B Pol(L-L(3)40R2,L

22、26R-L(4)336R(4) 推荐精选Lbi B Rec(I,H+AJ) N+IN E+JE NZF+1 EZF+2 V-T+LZF+3 H+ABZF+4 ARZF+5 ARZF+6 F+6F F+6DimZ M=0=Goto C缓和段2 Rec(2RSin(0.5PR),H+AB+APR2) N+IN E+JE NZF+1 EZF+2 V-T+L+PZF+3 H+AB+APRZF+4 ARZF+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

23、H+KZF+4 0ZF+5 0ZF+6 F+9DimZ 1ZF+7 VZF+9 要素终点桩号 Deg FileName：READDAT ZC+32I I=3=ProgREADDAT3 If GM+L:Then ;验证要素是否可用，否则重设要素 推荐精选I=1=ProgREADDAT1 I=2=ProgREADDAT2 ProgREADDAT3 IfEnd FileName:READDAT1 平曲线分段要素读取程序1 ZC+30F 0J Lbi 1 搜索要素 If GGoto E:F-6F:-1J:Goto 1 Else 1=ZF+1=Goto E:-1=J=Goto 2:1J:F+6F:Got

24、o 1 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文件请输入内容为以下内容以便测试结果与本文一致。 180J Goto 1 Lbi 1 If G30008.396:Then Cls:St

25、op:IfEnd ;判断待求桩号是否小于本要素起点，如小于就停止运行程序 If G30661.038(终点里程):Then 2851422.090(起点X)N:513896.440(起点Y)E:30008.396M:2133252J(起点方位角)H:0(起点曲率)A:0(终点曲率)R:652.642起点至终点长度L:Goto E:IfEnd If G30921.038:Then 2850878.162N:513535.768E:30661.038M:2133252JH:0A:11300R:260L:Goto E:IfEnd If G31426.367:Then 推荐精选2850666.478N

26、:513385.004E:30921.038M:2191639JH:11300A:11300R:505.328L:Goto E:IfEnd If G31686.367:Then Cls:Stop:IfEnd ;判断待求桩号是否大于本要素终点，如大于就停止运行程序 Lbi E NZC+23:EZC+24:MZC+25:HZC+26:AZC+27:RZC+28:LZC+29 FileName:READDAT3 平曲线分段要素读取程序3 Norm 1 ZC+23N:?N:NZC+23 当前分段要素N坐标 ZC+24E:?E:EZC+24 当前分段要素E坐标 ZC+25M:SZH?M:MZC+25 当

27、前分段要素起点桩号 180ZC+26H:HDMS FWJ?H:H180H:HZC+26 当前分段要素起点方位角（正北）单位：度分秒 ZC+27A:SR?A:AZC+27 当前分段要素起点曲率有左偏负右偏正（注意是半径的倒数） ZC+28R:ER?R:RZC+28当前分段要素终点曲率有左偏负右偏正（注意是半径倒数） ZC+29L:?L:LZC+29当前分段要素长度 Return FileName:GCJS高程计算 ZC+31D 0J Lbi S DZC+31 ZD-2I ZD-1V ZD+1K ZD+2O (O-V)(K-I)U ZD+4I ZD+5V (V-O)(J-K)V U-VZ ;为正时

28、是凸型竖曲线,负是时为凹竖曲线 ZD+3I;读入半径 推荐精选Abs(IZ)2T ;切线长 If GK-T:Then ;点在切点前 If J=1 Or ZD=-1 :Then UG-UK+OZ :Return:IfEnd ;计算高程Z -1J:D-3D:Goto S Else If G0=-II O-UT+UQ+IZ ;计算高程Z Return Else If G0=-II O+VT+VQ+IZ ;计算高程Z Return Else If J=-1 Or ZD+3=1 :Then O+VG-VKZ ;计算高程Z Return Else 1J:D+3D:Goto S IfEnd :IfEnd:IfEnd:IfEnd （注：可编辑下载，若有不当之处，请指正，谢谢!） 推荐精选