路线坐标放样计算程序ROAD

《路线坐标放样计算程序ROAD》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、路线坐标放样计算程序ROAD-1（09-08改进版）王中伟发表于2009年08月24日09:47阅读（66）评论（4）分类：技术交举报路线坐标放样计算程序ROAD-1（09-08改进版）一、前言《CASIOfx-5800P计算与道路坐标放样计算》出版一年多，经过测量实践、网友交流等途径，对教材第五章中的路线处标放样计算程序ROAD-1进行了优化，木次优化是基于编程技术、程序精简方面的，功能方面无任何变动。为了大家能理解，也为了共同捉高编程水平，将本次改写的要点罗列如下：1.为了提高计算速度，在通过验证保证公

2、路放样计算精度的前提下，对曲线耍素计算的p、q参数计算公式均只取前两项（原程序取前三项），对缓和曲线局部坐标计算公式取前两项（原程序取前三项）,详情参见H志“关丁•高速铁路精密缓和川I线公式的质疑”2.部分简单的逻辑判断语句不使用If-Then-Else-IfEnd的语句，而采用老的逻辑判断语句以简化代码，如原语句：1^W:IfO<0：Then一1^W:IfEnd：WO改写为：1今、v：o-i今H:、VO今3.对中线坐标计算子程序做了进一步优化，使Z更加简洁；4.曲线要素计算子程序删除了外距E、曲屮Q

3、Z桩号的计算，因为这些参数对屮线坐标计算无太多作用；5.充分利用5800计算器新的Locate显示定位函数，编写了计算结果显示子程序，使计算结果能一次性全屏显示，更加人性化，且简化了操作；6.通过设置和应的右角及距离，将中桩坐标与边桩坐标计算归总到一起，使程序更加简洁，操作更加简单。二、程序清单道路坐标放样计算程序包括一个主程序和五个子程序。1.主程序清单：ROAD-1道路坐标诙样计算程序（主程序）：ROAD—1行号程序说明1Deg:Fix3:20今DimzV基本设置与定义额外变量rX(JD)M?X:丫(J

4、D)'?、'TWJ^M^输入原始数据:平曲线交点坐点之前直线段方位角aWA今A:TJ7A:?R1S1?B:TS2W，?C:°K(JD〉输入原始数据：转角（左转为:线半径.缓和曲线长度、交点41今、V:AVO》一I**W:M+A4N:^A^A0判别路线转向，计算交点之后方位角■2iProgROAD-QXYS%调用子程序计算曲线要素及主6ProgKOAD-XS1^调用曲线要素计算结果显示子7*XS'?U:°YS”?、d输入测站点坐标SLblO:KP输入待计算中桩9ProgKOAD-LXZfid调用子程序计算道路

5、中线坐标10Lbl1:90今H:AJ?H:H=0>Goto0:?D~输入右角及距离'若右角为0桩号输入11F+Dco»(Z+H)^Z[ll]:G+Diin(Z+H)4ZIUJ^坐标计算12Pol(Z[ll]-U、Z[12]-51：J<0^J+3604J<*13ProgKOAD-XSl^14Goto141.子程序1清单：ROAD-QXYS功能：计算非对称型道路平曲线要素及主点桩号。道路坐标敢样计算程序（子程序1）：ROAD—QXYS行号程序说明1BJ-S-24-S-R-B八(4)4-26SS4-R八(3)今Z

6、[6]Q计算PrC24-244-R-C(4)-2-26884-R"(3)^2[7]^计算亿qB-5-2-B"(3〉*240—R」今Z[S*计算04C4-2-C(3)4-240H-R-Z[9]^计算S■Z[8]+(R+Z(7]-(R+Z[6Dcoi(A))4-iin(A)4计算£6Z[9]+(R+ZI6]-(R+Z[7Dco»(A))-5-»m(A)计算7：■7RA兀—1SO+(B+C)令2今Ld计算zSL-B-C^Q^1计算厶9K-S^ZIlJf1计算ZH点桩号10Z[l]+B今Z[2*计算HY点桩号11Z

7、IIJ+L-C^ZMJ^计算YH点桩号12Z[4]+C今Z[5]4计算HZ点桩号1.子程序2清单：ROAD-LXZB功能：计算道路中线坐标。道路坐标放样计算程序（子程序2）：ROAD—LXZB行号程序说明1IfP^ZflJzThen^ZH点之前的直线段坐左2X4F:Y4G:P-K4Z[161：0^[17):M立[13]:M检：Goto2:IfEndV3P>Z[4]>Gotol<14X-Sco»(51)-*F:Y-Siin(5f)今ZH点坐标5IfP^Z[2]:Then^第一缓和段内坐标计算6P-Z[1]^L

8、:L^Z[14]:B**Z[15J:ProgHOAD-XY*:WZ[17]Z[17]:M->Z[13j:M+905M_2H-(BR3i)*>Z:Goto2:IfiEndV7IfP^Z[3]:Then^圆曲线段内坐标计算SP-Z[1]4L：90(2L-B)-5-R-S-ai今Z[13]V9Rsiit(Z[13])+Z[8]^Z[16J:W(R(1-coi(Z[13D)+Z[61)*Z[17]:M+WZ[13J->Z