【路线坐标放样计算程序ROAD-1】 坐标放样

路线坐标放样计算程序ROAD-1（09-08改进版）

一、前言

《CASIO fx-5800P计算与道路坐标放样计算》出版一年多，经过测量实践、网友交流等途径，对教材第五章中的路线坐标放样计算程序ROAD-1进行了优化，本次优化是基于编程技术、程序精简方面的，功能方面无任何变动。

为了大家能理解，也为了共同提高编程水平，将本次改写的要点罗列如下： 1．为了提高计算速度，在通过验证保证公路放样计算精度的前提下，对曲线要素计算的p 、q 参数计算公式均只取前两项（原程序取前三项），对缓和曲线局部坐标计算公式取前两项（原程序取前三项），详情参见日志“关于高速铁路精密缓和曲线公式的质疑”

2．部分简单的逻辑判断语句不使用If-Then-Else-IfEnd 的语句，而采用老的逻辑判断语句以简化代码，如原语句：

3．对中线坐标计算子程序做了进一步优化，使之更加简洁；

4．曲线要素计算子程序删除了外距E 、曲中QZ 桩号的计算，因为这些参数对中线坐标计算无太多作用；

5．充分利用5800计算器新的Locate 显示定位函数，编写了计算结果显示子程序，使计算结果能一次性全屏显示，更加人性化，且简化了操作；

6．通过设置相应的右角及距离，将中桩坐标与边桩坐标计算归总到一起，使程序更加简洁，操作更加简单。

二、程序清单

道路坐标放样计算程序包括一个主程序和五个子程序。

1．主程序清单：ROAD －1

2．子程序1清单：ROAD －QXYS

功能：计算非对称型道路平曲线要素及主点桩号。

3．子程序2清单：ROAD －LXZB 功能：计算道路中线坐标。

注：

1．因笔误，第七行程序中的Z[3]请改为Z[4]，特在此说明，不再重传程序图片了。

2．第17行笔误，改为：ZZ+360→Z:Z>360＝>Z-360→Z。（感谢网友“沙漠中的海”指正）

4．子程序3清单：ROAD －XY

功能：计算缓和曲线上一点的局部坐标。

5．子程序4清单：ROAD －XS1 功能：显示平曲线要素等计算结果。

6．子程序5清单：ROAD －XS2 功能：显示坐标计算结果。

三、变量清单

道路坐标放样计算程序变量清单见表。

四、程序使用示例

使用道路坐标放样计算程序ROAD －1计算以下指标：

（1）JD22的平曲线要素；

（2）计算K6+800、K6+820、K6+888.714、K6+960四个中桩的坐标及全站仪极坐标放样数据；

（3）计算K6+800处的路面边缘坐标及全站仪极坐标放样数据。 计算程序的操作流程见下表。