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

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

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

一、前言

为了大家能理解，也为了共同提高编程水平，将本次改写的要点罗列如下：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处的路面边缘坐标及全站仪极坐标放样数据。计算程序的操作流程见下表。