4800,4850路线程序详解汇编.ppt

4800，4850编写程序详解 编写人：王军 计算器编写程序 我们前面所学直线，曲线，缓和曲线内容做了充分的了解和掌握，现在把关于直线，曲线，缓和曲线计算坐标的计算器编程给大家介绍下，如下 第一节、直线程序 第1步： M “X0=”:N”Y0=”:F”F=”:0”0=” 代表的意思是X0=赋于计算器里面的M的存储器内，“=”这样编辑，M所赋于就为常量，就为M为起点的坐标，相对应，N就为Y坐标，F为起点位置的方位角，O为起点的桩号。 第2步 LBI0:{K,J} :D=K-O LBI在4800，4850计算器中是一个标识符命令。 K,J这样编辑是变量赋予，K是直线范围内的任意点桩号，J为距左右边桩的距离，左-，右+，D=K-O，是指直线范围内的任意点桩号-直线起点桩号，D就是两桩号之差，就是距离 第3步 X=M+D* COS F▲ Y=N+D* SIN F▲ X-K点桩号的X坐标；Y -K点桩号的X坐标，即所求点的XY坐标，D同第2步一样， 第4步 X=X+J*cos(F+90) ▲ Y=Y+J*sin(F+90) ▲ 所求的XY坐标就是左右边桩的坐标，90度为正交。 第5步 Goto 0 Goto为无条件转移命令， Goto 0即为无条件转移到标识符为0的程序运行段落中来 第二节 圆曲线程序 圆曲线程序： 由于圆曲线用的在道路测量里面用的很多，经多年的实践经验，自己的总结，编程出了一个通过偏角法进行计算坐标的程序，适用于各种圆曲线，包括匝道的卵形曲线中的圆曲线，希望大家在以后的工作中能够用上。 第1步： M “X0=”:N”Y0=”:R”R=“: F”F=”: 0”0=”:Z”Z=” 同直线赋予值一样，只介绍 R—半径，Z—转角，左-右+ 第2步： LBI0:{K} 同上直线 第3步： D=ABS(K-O):任意点至起点的弧长。 A=180D/R∏: 这段弧长的角度。 H=√（（RsinA)2(R(1-cosA)) 2）： 任意点至起点的直线长度。 I=tg-1((R(1-cosA))/(RsinA)): 任意点至起点直线的偏角。 V=F+ZA： 圆曲线上任意点切线方位角 第4步： X=M+Hcos(F+ZI) ▲ 所求任意点X坐标 Y=N+Hsin(F+ZI) ▲ 所求任意点Y坐标 第5步： J”J=” 距中桩距离。左-，右+。 X=X+Jcos(V+90) ▲ Y=Y+Jsin(V+90) ▲ 边桩X,Y坐标结果。 Goto 0 同上 图12-6 某水利工程高程施工控制网 第三节 缓和曲线程序 ★ 缓和曲线测量多用于在道路测量里面，经多年的实践经验，自己的总结，编出适应于完整缓和曲线和不完整缓和曲线上，并用于道路的实际放线工作中，现在将缓和曲线中缓和段的计算程序给大家做讲解，希望大家在以后的工作中能够用上。 第1步： M “X0=”:N”Y0=”:R”R=“: F”F=”: S”LS=”：0”0=”:Z”Z=” 同圆曲线赋予值一样，只介绍 S-缓和曲线长 第2步： LBI0:{K} :D=ABS(K-O): 同上圆曲线 第3步： H=√（（D-D5/40R2S2)2+(D3/6RS)2): 任意点至起点的直线长度。 I=tg-1（（D3/6RS）/（D-D5/40R2S2）） 任意点至起点直线的偏角。 U=180D2/2∏RS:测量点位置的切线 V=F+ZU▲ 切线方位角 第4步： X=M+Hcos(F+ZI) ▲ 所求任意点X坐标。 Y=N+Hsin(F+ZI) ▲ 所求任意点Y坐标。 第5步： J”J=” 距中桩距离。左-，右+。 X=X+Jcos(V+90) ▲ Y=Y+Jsin(V+90) ▲ 边桩X,Y坐标结果。 Goto 1 同上 综合上述关于直线，圆曲线，缓和曲线缓和段程序的介绍，道路测量就是这三种线型的组合，计算方法就是这些。希望做的同事在回去工作中多看关于这方面的书籍，了解其原理，能够自己写出更多更好实用性更强的程序。 道路测量直线，缓和曲线。圆曲线综合程序 路线程序（LX） D“JD”：A