温馨提示：下面程序代码输入时请在每行的末尾加上换行符（回车键-EXE），红色文字的代码可以输入，可以不输入，建议输入，即使不用也不会影响效率；

主程序：SQX

程序说明

Fix 3保留三位小数

Lbi 0

"K-DQ":?K输入待计算点的桩号

Prog "SQX-SUB"调用运算子程序计算输入桩号的高程

If K<道路起点桩号 Or K>道路终点桩号:Then "K-DQ,ERROR":Ifend判断输入桩号是否在工程的范围内，如果不在会提示出错，需要重新输入桩号

"H-DQ=":H▲显示所输入桩号的中桩设计高程

"JU,LI"?S输入下一个要计算的桩号到本桩号的距离，如果要计算相隔同一距离的多个桩就更方便，比如：要隔20米计算一个点，输入20即可，程序就会自动计算，不用再输入；不要此功能就不要输入本行和下一行程序代码

K+S→K程序自动计算下一个要计算的桩号，不要此功能就不要输入本行和上一行程序代码

Goto 0跳转到Lbi 0

运算子程序：SQX-SUB

Prog "SQX-DATA"调用竖曲线数据库子程序确定竖曲线参数

If I>J:Then -1→Q:Ifend判断竖曲线是凹/凸曲线，I>J为凸曲线

If I判断竖曲线是凹/凸曲线，I

RAbs(I-J)÷100→L计算竖曲线长度,选择输入，本程序计算时没有使用

L÷2→T计算切线长度，选择输入，本程序计算时没有使用

T2÷(2R)→E计算外距，选择输入，本程序计算时没有使用

C-T→M计算竖曲线起点桩号

C+T→N计算竖曲线终点桩号

If K≤M:Then D-(C-K)I÷100→H:Ifend计算竖曲线起点前直线段的高程

If K＞M And K≤C:Then (K-M)2÷(2R)→P:D-(C-K)I÷100+PQ→H:Ifend计算竖曲线前半段各点的高程

If K＞C And K≤N:Then (K-N)2÷(2R)→P:D-(C-K)J÷100+PQ→H:Ifend计算竖曲线后半段各点的高程

If K>N:Then D-(C-K)J÷100→H:Ifend计算竖曲线终点后直线段的高程

数据库子程序：SQX-DATA

If K≥线路起点 And K<本段竖曲线终点：Then 本变坡点桩号→C：本变坡点高程→D：本变坡点竖曲线半径→R：本变坡点前的直线纵坡度→I：本变坡点后的直线段纵坡度→J：Ifend第一个变坡点参数，输入各变坡点前、后直线纵坡度时不用带%，下同；

If K≥上一段竖曲线终点 And K<本段竖曲线终点：Then 本变坡点桩号→C：本变坡点高程→D：本变坡点竖曲线半径→R：本变坡点前的直线纵坡度→I：本变坡点后的直线段纵坡度→J：Ifend中间变坡点参数输入格式

…………………中间格式完全相同，有多少

个变坡点就输多少个参数

If K≥上一段竖曲线终点 And K<本段竖曲线终点：Then 本变坡点桩号→C：本变坡点高程→D：本变坡点竖曲线半径→R：本变坡点前的直线纵坡度→I：本变坡点后的直线段纵坡度→J：Ifend中间变坡点参数输入格式

If K≥上一段竖曲线终点 And K<道路终点桩号：Then 本变坡点桩号→C：本变坡点高程→D：本变坡点竖曲线半径→R：本变坡点前的直线纵坡度→I：本变坡点后的直线段纵坡度→J：Ifend最后一个变坡点参数

本程序是本人自己编写，经工程中实际测试，未发现错误，5800能较好地运行；拿来与同行朋友们分享，交流；也渴望有编程爱好及所有工程测量工作爱好者加入探讨，一起研究更多更实用的更方便的测量程序。下载本文