- 1、本文档共12页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
5800 隧道专版
本版本是道路版的升级版,程序只改变了 SHELL 程序,从 SHELL 中拆分出WORK-SET(工作设
置程序),加入 SDPY(隧道放样)。
FileName:RESET 初始化程序
Norm 1:50→C:12345→J
RESET PW?I:I=J=500→DimZ 为数据库增加额外变量 500 个,在 SET、SETPFDYS 程序根
据实际再增减变量以保证不浪费内存
50→Z[C+22]:本程序设置变量个数目前 50 个刚刚够用。
PASSWORDS?I:I→Z[C+39] 重设要素保护密码
Cls:Stop
FileName:DATLOCK 要素保护密码确定认程序
Cls:Norm 1:50→C
PASSWORDS?J:Cls:J≠Z[C+39]=Stop
FileName:SHELL(外壳程序)
50→C ;在扩充变量预留前 50 个给别的程序用。如不够就适量加大。RESET,SHELL,
SET,SETPFDYS,这几个程序中C 值必需一致
Norm 1
Z[C+23]→N 当前分段要素 N 坐标
Z[C+24]→E 当前分段要素 E 坐标
Z[C+25]→M 当前分段要素起点桩号
Z[C+26]→H 当前分段要素起点方位角(正北)单位:弧度
Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正(注意不是半径)
Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正(注意不是半径)
Z[C+29]→L 当前分段要素长度
Z[C+3]→ 斜桩角度
Lbi S
ProgPROGMODE ;进入模式功能选择
Lbi A
Deg:Norm 1:Cls
Z[C+1]→G:ZH?G ;桩求桩号
If G=-1:Then ProgWORK-SET:Goto S:IfEnd 进入工作设置
G→Z[C+1]
Z[C+2]→B:JL?B:B→Z[C+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+Z[C+41] ;第四行显示 Z 坐标
Locate 10,4,B ;第四行显示横向距离
0→I
Do:I+1→I: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(Z[C+35]-X,Z[C+36]-Y)
Cls:DL:Locate 3,1,I:Locate 12,1,Z[C+45]
→:Locate 3,2,B:Locate 12,2,Z[C+49]
FWJ
J0=J+360→J:J◤DMS◢
J→Z[C+46]
I→Z[C+47]
Goto 1
FileName:SDFY 隧道放样
Cls
Z[C+2]→V
Z[C+41]→D
Z[C+43]→I:DQD-Z?I:I→Z[C+43]
Z[C+42]→J:R?J:J→Z[C+42]
Z[C+40]→K:R-DL?K:K→Z[C+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:0→O
Else If P-J0:Then P-√(J2-(I-Z-D)2)→O:0→P
Else P-√(J2-(I-Z-D)2)→O:I-Z-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
0→T
Do:T+1→T:T=1000=Return:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘,并在几十
秒后自动返回
Ge
文档评论(0)