隧道测量程序.docVIP

一、隧道测量放样程序(坐标正反算) 文件名ZB---ZFS 1、＂JD=＂？D:＂A=＂？A:＂R=＂？R:＂LS=＂？C:＂R1=＂？M 2、C2/24R-C4/2688R3→Z[19] (内移值) 3、C/2-C3/240R2→Q（切线增长量） 4、90C/πR→Z[1]（缓和曲线角β0） 5、＂T=＂:(R+Z[19])tan(Abs(A/2))+Q→Z[20]◢ 6、＂E=＂:(R+Z[19])/Cos(A/2)-R→W◢ 7、＂L=＂:Abs(A)-2×Z[1]πR/180+2C→L◢ 8、＂ZH=＂:D - Z[20]→Z[16] ◢ 9、＂HY=＂: Z[16]+C→Z[18] ◢ 10、＂QZ=＂: Z[16]+L/2→Z[9] ◢ 11、＂YH=＂: Z[16]+L-C→Z[12] ◢ 12、＂HZ=＂: Z[16]+L→Z[17] ◢ 13、＂N=＂？N:＂E=＂？E:＂F=＂？F 14、If A＜0 15、Then -1→S 16、Else 1→S 17、IfEnd 18、F+A/2+90S→U（JD去圆心的方位） 19、W+R→V（JD去圆心的距离） 20、N+Vcos(u)→Z[1]（圆心X坐标） 21、E+VSin(u)→Z[2]（圆心Y坐标） 22、F+A/2+90S+180+180(Z[18]-Z[9])S/(πR)→K（圆心去HY的方位） 23、If K≤360 24、Then K+0→K 25、Else K-360→K（当K＞360时、减去360） 26、IfEnd 27、F+A/2+90S+180+180(Z[12]-Z[9])S/(πR)→Z[15] （备注：圆心去YH的方位） 28、If Z[15]≤360 29、Then Z[15]+0→Z[15] 30、Else Z[15]-360→Z[15]（当Z[15]＞360时、减去360） 31、IfEnd 32、F+180→Z[14]（本JD去前一个JD的方位） 33、If SZ[14]≤360 34、Then Z[14]+0→Z[14] 35、Else Z[14]-360→Z[14]（当Z[14]＞360时、减去360） 36、IfEnd 37、N+Z[20]Cos(Z[14])→Z[13] （备注：ZH点X坐标） 38、E+Z[20]Sin(Z[14])→Z[11] （备注：ZH点Y坐标） 39、Pol((Z[1]-Z[13]),(Z[2]-Z[11])) 40、J+180→Z[6]（圆心去ZH的方位） 41、N+Z[20]Cos(F+A)→Z[10] （备注：HZ点X坐标） 42、E+Z[20]Sin(F+A)→Z[7] （备注：HZ点Y坐标） 43、Pol((Z[1]-Z[10]),(Z[2]-Z[7])) 44、J+180→Z[5] （备注：圆心去HZ的方位） 45、LbI 1 46、＂P—X =＂？B:＂P—Y =＂？O:＂P—Z=＂？G 注：P点实测三维坐标 47、Pol((Z[1] - B),(Z[2] - O)) 48、J+180→Z[8] 49、If SZ[8] ≤ SZ[6] 50、Then ＂P—JD---Z1=＂: Z[16]-√((Z[13]-B)2 +(Z[11]-O)2)→P◢ （P—JD表示棱镜所在里程，Z1表示计算出P点所在的径向里程，位于直线1上） 51、Goto A 52、Else Goto B 53、IfEnd 54、Goto 1 55、LbI B 56、If SZ[8]≤ SK 57、Then ＂P—JD---H1=＂: Z[16]+√((Z[13]-B)2 +(Z[11]-O)2)→P◢ （P—JD表示棱镜所在里程，H1表示计算出P点所在的径向里程，位于缓和曲线1上） 58、Goto A 59、Else Goto C 60、IfEnd 61、Goto 1 62、LbI C 63、If S Z[8]≤SZ[15] 64、Then ＂P—JD---Y=＂: Z[18]+(πR Abs((Z[8]-K)))/180→P◢ （P—JD表示棱镜所在里程，Y表示计算出P点所在的径向里程，位于圆曲线上） 65、Goto A 66、Else Goto D 67、