线路计算和编程.docVIP

中水四局二分局测量项目部 FX-5800P测量常用程序 编写： 目 录 1坐标正反算 1 1.1、PROGRAM 1 (坐标正算) 1 1.2、PROGRAM 2（坐标反算） 1 2坐标系正反算 1 2.1、PROGRAM 3（坐标系转化一） 1 2.2、PROGRAM 4（坐标系转化二） 1 3圆曲线正反算 1 3.1、PROGRAM 5（圆曲线放样公式之一） 1 3.2、PROGRAM 6（圆曲线放样公式之二） 2 4缓和曲线计算 2 5竖曲线计算 3 6综合曲线计算 3 6.1、主程序：WFB 3 6.2、子程序：ZBXFS1 3 6.3、线路要素子程序： 4 7缓和曲线计算程序 5 8曲线任意里程中边桩坐标正反算程序 7 9宁杭客专2标五分部段线路高程计算程序 9 9.1、主程序:WFB GD GC 9 9.2、子程序 10 10、宁杭客专2标五分部段底座板高程计算程序 11 10.1、程序功能 11 10.2、源程序 11 10.2.1子程序：DZG-H 11 10.2.2、子程序：DIZUOGAO YS 11 10.3、主程序:WFB GD GC1 12 FX-5800P测量常用程序 1坐标正反算 1.1、PROGRAM 1 (坐标正算) ？A：？B:Lb1 1:？S：？U: A+Rec（S，U）→X：B+J→Y：Cls “X=” ：Locate 3，1，X：“Y=”：Locate 3，2，Y◢ Goto 1 1.2、PROGRAM 2（坐标反算） ?A：?B：Lbl 2：?X：?Y： Pol（A - X， B - Y）→S：J+180→U：Cls “S=” ：Locate 3，1，S：“FWJ=” ： U▲DMS◢ Goto 2 2坐标系正反算 2.1、PROGRAM 3（坐标系转化一） ？C：？D：？U：?K：Lb1 3：？X：？Y： （X-C）CosU+（Y-D）SinU+K→N：-(X-C）SinU+（Y-D）CosU→E: “N=”：Locate 3,1,N:“E=”: Locate 3,2,E◢ Goto3 注：C,D为原点坐标，U为新坐标系的X轴在旧坐标系中的方位角，K为起始点桩号。 2.2、PROGRAM 4（坐标系转化二） ?C：?D：?U：?K：Lbl 4：?N：？E： C+(N-K)*CosU-E*SinU→X：D+(N-K)*SinU+E*CosU→Y： “X=”：Locate 3,1,X:“Y=”: Locate 3,2,Y◢ Goto 4 3圆曲线正反算 3.1、PROGRAM 5（圆曲线放样公式之一） “YXZB-X”?A： “YXZB-Y”？B： “QSBJ-FWJ”？U： ？R：“QD-ZH”？K: “YQX＝1,ZQX=-1”？Z： ｜右曲线1，左曲线－1。 Lbl 5：？X：？Y ： Pol（A - X， B - Y）： If Z(J+180-U)0: Then Z(J+180-U)+360→W:Else Z(J+180-U) →W:IfEnd: π*R* W/180+K→L :Z (R-I) → P:Cls: “L=”:Locate 3,1,L:?“PIANJU=”:Locate 8,2,P◢ Goto 5 3.2、PROGRAM 6（圆曲线放样公式之二） “YXZB-X”?A： “YXZB-Y”？B： “QSBJ-FWJ”？U： ？R：“QD-ZH”？K: “YQX＝1,ZQX=-1”？Z：Lbl 5： ｜右曲线1，左曲线－1 “ZHUANGHAO”？L：“PIANJU”？P ： Rec(R-ZP,U+Z(L-K)*180/3.14159265357/R):A+I→X:B+J→Y:Cls: “X=”:Locate 3,1,X:?“Y=”:Locate 3,2,Y◢ Goto 5 4缓和曲线计算 “ZH,HZ-X=”?C: “ZH,HZ-Y=”?D: “ZH,HZ-JD-FWJ=”?U: ｜直缓点和缓直点到交点的方位角 “ZH,HZ DIAN ZHUANGHAO=”?Q:?R: “YICE HUANHE QUXIAN CHANG=”?S: ｜一侧缓和段长度 “YQX=1,ZQX=-1”?T: ｜右曲线1，左曲线－1 “DIYIDUAN=1,DIERDUAN=-1”?M: ｜延线路里程方向推算，小里程一侧缓和段为第一段 T*M→Z:Lbl 6: “JISUANDIAN ZHUANGHAO=”?K: If M(K-Q)S OR M(K-Q)0:Then Cls：“ZHUANGHAO CHAOCHU