5800公路测量程序(修改)

CASIO-5800P计算器以其轻巧灵活、便于携带、功能强大、经济实用的特点，深受广大测量爱好者的喜爱。尤其在公路施工测量方面，全站仪与CASIO-5800P计算器的组合是目前公路施工测量应用最广泛的工具。

为使其功能得到更好的应用，特编辑整理此程序，供广大公路测量爱好者参考。不妥之处敬请指教！

编者：管东利

2009-3-15

简要说明

本程序具有以下特点：

1、简洁实用，结构合理，功能齐全。由项目程序、主程序和子程序

构成本程序系统。

2、有功能强大的路线坐标计算程序，同时配备了其它常用的应用程

序。如：后方交会、面积计算、点到直线的距离及两直线交点坐标、距离方位反算等。

3、路线坐标计算：可以将整个项目的多条路线的多条曲线要素一次

编入子程序(P)；竖曲线要素编入子程序(G),横坡度编入子程序（I）。

做到一次编辑，项目程序(如：YL2)多次运行，直到本项目结束，避免每次计算都必须输入曲线要素的重复劳动，也减少了计算出错机会，极提高工作效率。这一点也是本程序的精华所在。

4、可对每条曲线进行坐标计算：即可使用曲线要素法计算，也可使

用主点桩坐标法进行计算。其中主点桩坐标法可以用来计算任何曲线，尤其适用于对付互通立交。

5、与设计文件紧密结合。几乎所有已知曲线要素都可以在设计文件

中直接找到，避免了重新计算的麻烦。

6、变量名力求与设计、习惯或数学公式相匹配，易于联想记忆。如：

半径-R、直缓点-ZH、水平角-HR、里程桩号-LX等。

7、功能齐全的子程序，使编制新的应用程序简便易行。

CASIO-5800P公路施工测量应用程序(GDL-2009)

编制：管东利

YL2(程序名：永蓝2段)

Lb11:Prog“1”:Prog“P”:Prog“2”: Goto1

输入：LX : 计算点桩号（对应变量V）; S: 计算点距该中桩距离（对应变量S）; W: 计算点与中桩连线与路线前进方向的夹角（对应变量W）

计算并显示：计算点坐标X ,Y

说明:

本程序为项目程序，先将本项目的平曲线要素编辑到子程序P，一次输入，长期使用。

YLGC(永蓝高程)

Lb11:Prog“1”:Prog“G”: Prog“I”: “H=”:H+I(S-1→H◢ Goto1

输入：LX : 计算点桩号（对应变量V）; S: 计算点距该中桩距离（对应变量S）; W: 计算点与中桩连线与路线前进方向的夹角（对应变量W）

计算并显示：计算点对应的路面设计高程H

说明:

本程序为项目程序，先将本项目的竖曲线要素分别编辑到子程序G和子程序I中，一次输入，长期使用。

(注：S要大于或等于零；W为±900；1为高程设计线到路中线的距离，一般为中央分隔带宽度的一半，要与设计图纸相符。)

ZX(直线段)

Prog“8”:Lb1 1:Prog“1”:Prog“Z”:Prog“2”:Goto1

已知：LA: 第一点桩号（对应变量K）; X1: 第一点X坐标（对应变量A）; Y1: 第一点Y坐标（对应变量B）;

LN: 第二点桩号（对应变量N）; X2: 第二点X坐标（对应变量C）; Y2: 第二点Y坐标（对应变量D）

输入：LX: 计算点桩号（对应变量V）; S: 计算点距该中桩距

离（对应变量S）; W: 计算点与中桩连线与路线前进方向的夹角（对

应变量W）

计算并显示：计算点坐标X ,Y

说明：对应变量，在编辑子程序“P”和“G”时用的到，要对照输入

相应的值。

YQX(圆曲线)

Prog“8”:?R:Prog“7”:Lb11:Prog“1”:Prog“Y”:Prog“2”:Goto 1

已知：LA: 第一点桩号（对应变量K）; X1: 第一点X坐标（对应变

量A）; Y1: 第一点Y坐标（对应变量B）;

LN: 第二点桩号（对应变量N）; X2: 第二点X坐标（对应变量C）; Y2: 第二点Y坐标（对应变量D）； R: 圆曲线半径（对应变量R）; Q: 曲线转向(Y=1右转 Z=-1左转) （对应变量Q）

输入：LX: 计算点桩号; S: 计算点距中桩距离; W: 中桩与计

算点连线与路线前进方向夹角

计算并显示：计算点坐标X ,Y

示意图如下：

HHQX(缓和曲线)

“ZH”？K：“HZ”？N：“XD”？C：“YD”? D：“XH”? A：

“YH”?B:“R”?R:“T”?T: “LS”? U:Prog“7” :Lb1 1:Prog “1” :

Prog “H”:Prog“2” :Goto1

已知：

ZH:直缓点桩号（对应变量K）; HZ:缓直点桩号（对应变量N ） ; XD:交点X坐标（对应变量C）; YD: 交点Y坐标（对应变量D）; XH:后方交点X坐标（对应变量A）; YH: 后方交点Y坐标（对应变

量B）; R: 圆曲线半径（对应变量R）;T: 切线长（对应变量T）; Ls: 缓和曲线长 (对应变量U）; Q: Y=1右转 Z=-1左转（对应变量Q）

输入：LX: 计算点桩号（对应变量V）; S: 计算点距该中桩距离（对

应变量S）; W: 计算点与中桩连线与路线前进方向的夹角（对应变

量W）计算结果：计算点坐标X ,Y

说明: 1.适用于标准的缓和曲线,既第一,第二缓和曲线长度相等。

2.计算围为：含两端直线段在的整条曲线。

FHQX(复合曲线)

Prog“8”: “R1”? H :“R2”? R: Prog “7”:Lb1 1: Prog “1” :Prog “F”: Prog “2”:Goto1

已知：LA: 第一点桩号（对应变量K）; X1: 第一点X坐标（对应变

量A）; Y1: 第一点Y坐标（对应变量B）;

LN: 第二点桩号（对应变量N）; X2: 第二点X坐标（对应变量C）; Y2: 第二点Y坐标（对应变量D）； Q: 曲线转向(Y=1右转 Z=-1左转) （对应变量Q）; R1: 第一点曲线半径（桩号LA点) （对应变量H）; R2: 第二点曲线半径(桩号LN点) （对应变量R）

（如：缓圆点或圆缓点的曲线半径等于圆曲线半径R；直缓点或缓直

点的曲线半径为+∞,可输入1G(千兆)）；其他项同HHQX

说明：

1、LA和LN在缓和曲线段上即可，不必是起点或终点；对应的曲率半径

计算要正确。

2、缓和曲线曲率半径计算公式：R=A2/L （A为缓和曲线参数；L为计算

点至直缓点之间的缓和曲线长度）；

3、LA可以大于LN