程序介绍：本程序适用于CASIO fx-5800P,用于计算道路测量中全线任意桩号的中桩设计高程，程序简洁，数据库子程序第一个和最后一个变坡点的参数输入时要注意一下格式，其它变坡参数的输入格式都是一样，参照《纵坡、竖曲线表》可以很快的输入；
温馨提示：下面程序代码输入时请在每行的末尾加上换行符（回车键-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能较好地运行；拿来与同行朋友们分享，交流；也渴望有编程爱好及所有工程测量工作爱好者加入探讨，一起研究更多更实用的更方便的测量程序。