竖曲线高程计算主程序（5800）
Lbl A：？K：Prog“SJK”：A-T→E：A+T→F ←
If K=A：Then Goto 5：IfEnd ←
If K≤E：Then Goto 3：IfEnd ←
If K≥F：Then Goto 4：IfEnd ←
If K＜A：Then Goto 1：IfEnd ←
If K＞A：Then Goto 2：IfEnd ←
Lbl 1：K-E→X：X2÷(2R)→Y：B+I(K-A)→G：Goto 6 ←Lbl 2：F-K→X：X2÷(2R)→Y：B+J(K-A)→G：Goto 6 ←Lbl 3：B+I(K-A)→H ▲
Goto A ←
Lbl 4：B+J(K-A)→H ▲
Goto A ←
Lbl 5：B+CM→H ▲
Goto A ←
Lbl 6：G+CY→H ▲
Goto A ←
竖曲线要素库子程序（SJK）
If K≤竖曲线终点桩号：Then 凹（凸）竖曲线交点桩号→A：第一坡度→I：第二坡度→J：外矢距(E值)→M：交点高程→B：切线长→T：竖曲线半径→R：（凹）1、（凸）-1→C：（曲线段）Return：IfEnd
If K≤直线终点桩号：Then 直线起点桩号→A：直线段坡度→I：直线段坡度→J：0（零）→M：直线段起点高程→B：0（零）→T：1045→R：0（零）→C：（直线段）Return：IfEnd
If ……………………如有多段竖曲线加入，以此类推
说明：
1、本程序为设计高程计算程序，输入里程K就得出设计高程。

主程序可计算整条线高程乃至多条线路高程。

2、如有多段竖曲线可直接加入到“竖曲线子程序”中，如有多
条线路可编多个“竖曲线子程序”，只要在主程序中改“竖曲线子程序”名。

3、直线段外矢距为零、切线长为零、半径为无穷大，以10的
45次方代替、C值为零。

4、←符号表示换行。