5800隧道测量程序.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
坐标正算主程序LXZB Fix 4:“1=ZK,2=YK,0=A”? O:Cls “P+X=”? C If O=0:Then “1=ZH,2=HQ,3=YQ”? G “-R+”? R:“F1=”? F:“Z1=”? Q “Z2=”? Y:“X1=”? N:“Y1=”? E IfEnd Lbl 1:Cls:“P=”? P:Cls:“HD=”? L O=1=Prog“ZKZB”:O=2=Prog“YKZB” Lbl 3:Abs(P-Q)→I:Abs(Y-Q)→U QY=Goto 4:PQ=Goto 1:PY=Goto 1 Goto 5 Lbl 4:PQ=Goto 1:PY=Goto 1 Lbl 5:P+C→P If G=1:Then N+Icos(F)→K:E+Isin(F)→H F+90→J:K+Lcos(J)→K:H+Lsin(J)→H F→Z[6]:Goto 6:IfEnd If G=2:Then I-I5÷(40R2U2)→K I5÷(6RU)-I7÷(336R3U3)→H tan-1(H÷K))→J:→W F+3J→Z[6]:90+Z[6]→M:IfEnd If G=3:Then 90I÷(πR)→J 2Rsin(J)→W:F+2J→Z[6]:90+Z[6]→M:IfEnd F+J→U:N+Wcos(U)→K:E+Wsin(U)→H QY=-L→L:K+Lcos(M)→K:H+sin(M)→H QY=-L→L Lbl 6 Cls:Locate 1,1,“X=”:Locate 3,1,K Locate 1,3,“Y=”:Locate 3,3,H◢ O=0=Goto 2:Goto1 Lbl 2: Cls “F2=”:Z[6]△DMS◢ Goto 1 注释 设置显示四位小数 输入桩号间隔 输入待求点的桩号值和偏离测设中线的距离 1和2分别表示调用左线和右线数据库子程序 I为待求点到起算点距离,U为该段线元总长 限制若输入桩号不在该线元内 则重新输入 若在该线元内 则转到Lbl5程序段进行计算 条件 = 语句块 是条件语句 如果条件成立则执行=后面的一条语句 将桩号值加上采样间隔重新赋给P 直线段计算 第一缓和曲线段计算, 以曲线上任一点P切线方向为X轴,建立坐标系得出的缓和曲线上点的坐标计算公式 缓和曲线上某点切线角等于3倍的J F+切线角就是切线方向方位角,曲线右偏再加90得到p点法向方位角,用来计算边桩坐标 圆曲线上切线角等于2倍的J 由中桩坐标和法向方位角M计算边桩坐标 此处计算出的K,H为曲线段上中桩坐标 此处计算出的K,H为边桩坐标 Locate 列,行,显示内容 (显示格式设置) 小三角符表示在执行过程中停顿显示计算值,按exe键后继续运行程序 坐标反算主程序LSIC Lbl A:Fix 4:10→DimZ “1=ZK,2=YK”?O:69069→P:Cls “LMH=”?B:Cls:“0=SDIC,1=LXIC”?A:Cls If A=0:Then“R2-R1”?C Else“HD=”?C:Cls:“1÷X=”?W:IfEnd Lbl B:Cls:“X=”?K:Cls:“Y=”?H:Cls “Z=”?D Lbl C:O=1=Prog“ZKZB”:O=2=Prog“YKZB” Abs(P-Q)→I:Abs(Y-Q)→L QY=Goto D:PQ=Goto A:PY=Goto A Goto E Lbl D:PQ=Goto A:PY=Goto A Lbl E:If G=1:Then N+Icos(F)→X E+Isin(F)→Z:0→L:Goto F:IfEnd If G=2:Then I-I5÷(40R2L2)→X I3÷(6RL)-I7÷(336R3L3)→Z tan-1(Z÷X)→J:→I:3J→L:IfEnd If G=3:Then 90I÷(πR)→J:2Rsin(J)→I 2J→L:IfEnd N+Icos(F+J)→X:E+Isin(F+J)→Z Lbl F:Pol(K-X+1*10-63 ,H-Z) J≤0=J+360→J:QY=F-180→F F0=F+360→F:J-F+L→X Icos(X)→Z:P+Z→P:Abs(Z)≥0.001=Goto C Isin(X)→L:J→Z(6):Cls If O=1:Then Locate 1,1,“ZK=” Locate 4,1,P:Locate 1,2,“P-ZK=” Locate 6,2,P-68965:Locate 1,3,“HD=” Locate 4,3,L:Locate 1,4,“HR” Locate 4,4,J◢ IfEnd If O=2:Then Locate 1,1,“YK=” Locate 4,1,P:Locate 1,2,“P-YK

文档评论(0)

yurixiang1314 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档