5800隧道测量程序.doc

郭玉章 2020-3-23坐标正算主程序LXZBFix 4:“1=ZK,2=YK,0=A”? O:Cls “P+X=”? CIf O=0:Then “1=ZH,2=HQ,3=YQ”? G“-R+”? R:“F1=”? F:“Z1=”? Q“Z2=”? Y:“X1=”? N:“Y1=”? EIfEndLbl 1:Cls:“P=”? P:Cls:“HD=”? LO=1=Prog“ZKZB”：O=2=Prog“YKZB”Lbl 3:Abs(P-Q)I:Abs(Y-Q)UQY=Goto 4:PGoto 1:PY=Goto 1Goto 5Lbl 4:PQ=Goto 1:PGoto 1Lbl 5:P+CPIf G=1:Then N+Icos(F)K:E+Isin(F)HF+90J:K+Lcos(J)K:H+Lsin(J)HFZ6:Goto 6:IfEndIf G=2:Then I-I5(40R2U2)KI5(6RU)-I7(336R3U3)Htan-1(HK)J:WF+3JZ6:90+Z6M:IfEndIf G=3:Then 90I(R)J2Rsin(J)W:F+2JZ6:90+Z6M:IfEndF+JU:N+Wcos(U)K:E+Wsin(U)HQY=-LL:K+Lcos(M)K:H+sin(M)HQY=-LLLbl 6 Cls:Locate 1,1,“X=”:Locate 3,1,KLocate 1,3,“Y=”：Locate 3,3,HO=0=Goto 2:Goto1Lbl 2: Cls“F2=”:Z6DMSGoto 1注释设置显示四位小数输入桩号间隔输入待求点的桩号值和偏离测设中线的距离1和2分别表示调用左线和右线数据库子程序I为待求点到起算点距离，U为该段线元总长限制若输入桩号不在该线元内 则重新输入若在该线元内 则转到Lbl5程序段进行计算 = 是条件语句 如果条件成立则执行=后面的一条语句将桩号值加上采样间隔重新赋给P直线段计算第一缓和曲线段计算，以曲线上任一点P切线方向为X轴，建立坐标系得出的缓和曲线上点的坐标计算公式缓和曲线上某点切线角等于3倍的JF+切线角就是切线方向方位角，曲线右偏再加90得到p点法向方位角，用来计算边桩坐标圆曲线上切线角等于2倍的J由中桩坐标和法向方位角M计算边桩坐标此处计算出的K,H为曲线段上中桩坐标此处计算出的K,H为边桩坐标Locate 列,行，显示内容 （显示格式设置）小三角符表示在执行过程中停顿显示计算值，按exe键后继续运行程序坐标反算主程序LSICLbl A：Fix 4:10DimZ“1=ZK,2=YK”?O:69069P:Cls“LMH=”?B:Cls:“0=SDIC,1=LXIC”?A:ClsIf A=0:Then“R2-R1”?CElse“HD=”?C:Cls:“1X=”?W:IfEndLbl B:Cls:“X=”?K:Cls:“Y=”?H:Cls“Z=”?DLbl C:O=1=Prog“ZKZB”:O=2=Prog“YKZB”Abs(P-Q)I:Abs(Y-Q)LQY=Goto D:PGoto A:PY=Goto AGoto ELbl D:PQ=Goto A:PGoto A Lbl E:If G=1:Then N+Icos(F)XE+Isin(F)Z：0L:Goto F:IfEndIf G=2:Then I-I5(40R2L2)XI3(6RL)-I7(336R3L3)Ztan-1(ZX)J:I:3JL:IfEndIf G=3:Then 90I(R)J:2Rsin(J)I2JL:IfEndN+Icos(F+J)X:E+Isin(F+J)ZLbl F:Pol(K-X+1*10-63 ，H-Z)J0=J+360J:QY=F-180FFF+360F:J-F+LXIcos(X)Z:P+ZP:Abs(Z)0.001=Goto CIsin(X)L:JZ(6):ClsIf 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 IfEndIf O=2:Then Locate 1,1,“YK=”Locate 4,1,P:Locate 1,2,“P-YK=”Locate 6,2,P-68975:Locate 1,3,“HD=”Locate 4,3,L:Locate 1,4,“HR=”Locate 4,4,J IfEndO=1=Prog“ZKGC”:O=2=Prog“YKGC”PZ2=Goto G:PGoto BP-Z1Z:V-U(T+Z2-Z1)+UZZ8Goto H:Lbl G:PGoto B:PZ3=Goto BP-Z2Z:V-TV+ZU+Z2(2S)Z8Lbl H:If O=1:Then -2100J:Else -3100J:IfEndA=1=Goto R:O=2=Goto 1P69875=Goto I:P69875=Goto LP60000=Goto ILbl 1:P69785=Goto I:P69745=Goto LP60000=Goto ILbl L:If O=1:Then -5.335Y:Else5.335Y:IfEnd1.64I:5.45M:DGoto J:Goto 0Lbl J:O=2=Goto K If L-5.335:Then-2.875Y:Else -7.835Y:IfEnd1.64I:7.95M:If DZ8-1.2:Then 16.6I:-5.335Y:18M:IfEnd:Goto 0Lbl K: If L5.335:Then 7.835Y:Else2.835Y:IfEnd 1.64I:7.95M:If DZ8-1.2:Then 16.6I:5.335Y:18MIfEnd:Goto 0Lbl L:If O=1:Then -6.692Y:Else 6.692Y:IfEnd:0.282I:7.37MDGoto M:Goto 0:Lbl M:O=2=Goto N:If L-6.692:Then-8.049Y:Else -5.335Y:IfEnd1.64I:5.45M:DGoto 2:Goto 0Lbl 2:IF L-6.692:Then -5.555Y:Else-7.834Y:IfEnd1.64I:7.95M:Goto 0Lbl N:If L6.692:Then 7.834Y:Else5.555Y:IfEnd: 1.64I:5.45MDGoto 3:Goto 0Lbl 3: If LGoto P:DX=PZ9If LX=PZ10:If L2=0J:O=2=Goto S:If:L1.5:Then D-(Z8-B+J(C+1)IWabs(I)+CX:L-0.11M:IfEnd:D-(Z8-J(L-1)-B)Z7:Lbl T:Cls:If O=1:Then Locate 1,1,“1)ZK,2)OL,3)HS”:Locate 1,2,P:Locate 1,3,L+5.25:Locate 1,4,Z8:Else Locate 1,1,“1)YK,2)OL,3)HS”:Locate 1,2,P:Locate 1,3,L-5.25:Locate 1,4,Z8IfEnd:Locate 1,1,“1)XL,2)XH,3)HR”:Locate 1,2,X-Abs(L):Locate 1,3,I:Locate 1,4,Z6Locate 1,1,“1)II,2)SS”: Locate 1,2,M:Locate 1,3,Z7Cls:Goto B路线高程计算主程序 LXGC10DimZ:Fix 4:“1=ZK,2=YK”?O:Cls:“LMH=”?LLbl 1:Cls:“P=”?P:O=1=Prog“ZKGC”:O=2=Prog“YKGC”:PZ2=Goto 2:PGoto 1:P-Z1Z:V-U(T+Z2-Z1)+ZU-LZ8:Goto 3Lbl 2:PGoto 1:PZ3=Goto 1:P-Z2Z:V-UT+UZ+Z2(2S)-LZ8Lbl 3:Cls:“HS=”：Z8Goto 1左线高程计算子程序ZKGCP67957.5=Goto 0:237.5V：1.8100U：97.5T:-15000S:67445Z1:67762.5Z2:67957.5Z3:Goto ZLbl 0:P68772.95=Goto 1:241.55V:0.5100U:72.95T:10000S:67957.5Z1:68627.05Z2:68772.95Z3:Goto ZLbl 1:P70594.75=Goto 2:274.66V:1.959100U:204.75T:-50000S:68772.95Z1:70185.25Z2:70594.75Z3:Goto ZLbl Z: 302.59V:1.14100U:115T:-50000S:70594.75Z1:72725Z2:74970.25Z3:Lbl Z右线高程计算子程序YKGCP67950=Goto 1:237.38V:1.7100U90T:-15000S:67400Z1:67770Z267950Z3:Goto ZLbl 1:P68777.2=Goto 2:241.58V:0.5100U:77.2T:10000S:67950Z3Goto ZLbl 2:P70628.8=Goto 3:275.72V:2.044100U:258.8T:-40000S:68777.2Z1:70111.2Z2:70628.8Z3:Goto ZLbl 3:284.72V:0.75100U:112.5T:30000S:70628.8Z1:71457.5Z2:71682.5Z3:Lbl Z左线数据库子程序 ZKZBP68330.918=Goto 0:1G:67740Q:68330.918Y:3913.503N:2378.982E:110536.4F:Goto ZLbl 0:P68440.918=Goto A:2G:950R:68330.918Q:68440.918Y:3702.843N:2931.075E: 110536.4F:Goto ZLbl A:P69069.968=Goto 1:3G:950R:68440.918Q:69069.968Y:3661.66N:3033.058E:114127.71F:Goto ZLbl 1:P69179.968=Goto 2:2G:-950R:69179.968Q:69069.968Y:3139.944N:3531.097E:3352729.6F:Goto ZLbl 2:1G:69179.968Q:71000Y:3139.944N:3531.097E:1552729.6F: Lbl Z 右线数据库子程序 YKZBP68317.614=Goto 0:1G:67688Q:68317.614Y:3934.155N:2322.037E:112827.6F:Goto ZLbl 0:P68427.614=Goto A:2G:960R:68317.614Q:68427.614Y:3696.8566N:2905.2227E: 112827.6F:Goto ZLb