公路纵断面高程算法
Filename:******（自定主程序名）
N-M→P：Abs(P)÷P→S:Abs(P)×R÷2→T:If L是否位于曲线的小里程桩号直线段；
If L>D-T:Then C-MT+(M+(L-D+T)S÷2÷R)×(L-D+T)→H:Ifend↙ 判断输入点是否进入曲
线段；
If L≥D+T:Then C+(L-D)N→H:Ifend↙ 判断输入点是否位于曲线的前进里程桩号直线段；
H-E-KI→H：“H=”：H◢
5、公路纵断面数据程序
每个纵断面由纵坡和竖曲线组成，程序中每一个变坡点计算范围是从竖曲线前的纵坡任意桩
号开始到竖曲线后纵坡上的任一桩号结束。
Filename:******（自定子程序名）
Lbl 0: “Dh”? :E”L=”?L:”I=”?I:”K=”?K↙
If L>****(曲线段小里程桩号之前的直线段任一桩号):Then****（变坡点高程）→C: ****（变
坡点桩号）→D: ****（变坡点小里程段纵坡坡度）→M:I****（变坡点小里程段纵坡坡度）
→N: ****（竖曲线半径）→R: ****（变坡点桩号）→C: Ifend
↙ 依次输入各变坡点设计参数；
If L>****(曲线段小里程桩号之前的直线段任一桩号):Then****（变坡点高程）→C: ****（变
坡点桩号）→D: ****（变坡点小里程段纵坡坡度）→M:I****（变坡点小里程段纵坡坡度）
→N: ****（竖曲线半径）→R: ****（变坡点桩号）→C: Ifend：Prog“****（主程序名）”:
Goto0
6、使用说明
“Dh”提示使用者输入所求点距离路面的厚度， “L=”，输入所求点桩号,”I”=表示输入
路面横坡值，“K=”表示输入路面某点至中桩距离，均为正值。以上数据均在程序运行时输
入。
L>表示竖曲线前纵坡任意里程的桩号，本程序每段竖曲线参数计算范围是从竖曲线前的纵
坡上任意点到竖曲线后纵坡上任意点的桩号。
7、高边坡放样算法
利用程序进行边坡放样，工作步骤如下：
1、 司镜员走到目的地后，先测出一个点的坐标和高程；
2、 利用坐标正反算程序求出该点在线路中的桩号和距中距离，然后利用高程计算程序，计
算出该点所在桩号道路边桩设计高程，最后根据本程序计算出立镜点至距中距离差值△K，
指挥司镜员靠近道路中线或者往外偏移多少米。
3、 重复上述步骤，至△K 小于边坡宽度控制精度要求为止。