5800隧道测量程序.doc

坐标正算主程序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