自编卡西欧fx-5800p全线竖曲线计算程序(20140501更新版)

数据库格式说明：

If P≥第n竖曲线与第n-1竖曲线间直线任一点桩号 And P≤第n竖曲线与第n+1竖曲线间直线任一点桩号:Then [[第n竖曲线桩号,第n竖曲线高程,第n竖曲线曲率半径,第n-1竖曲线变坡点桩号,第n-1竖曲线变坡点高程,第n+1竖曲线变坡点桩号,第n+1竖曲线变坡点高程]]:Goto 1:IfEnd↙

特别提醒：第13行中的字体较大的“2”表示平方。

竖曲线计算程序（SQX-2)说明：

1、本程序以毕节市碧海路K2+000～K4+900段为例编制，但没考虑人行道标高。

2、因与全线中边桩坐标正反算程序（ROAD-2）配套使用，为避免自定义变量干扰默认值，自定义变量尽可能采用额外变量或与ROAD-2统一。如单独使用，可重新选择自变量，以减少程序输入的工作量。在路基范围内测得某一点坐标和高程，通过运用ROAD-2反算功能，计算出测点桩号和偏距，然后退出ROAD-2然后执行SQX-2，竖曲线计算程序运行时默认该测点的桩号和偏距，可快速计算该点的填挖值，在施工测量中非常方便。

3、计算曲线上高程时，竖距×（转坡脚÷转坡角的绝对值），有效避免了凹型曲线与凸型曲线的设计值需用切线标高分别加、减竖距的两种可能。

4、采用数据库子程序并采用矩阵赋值，减少了不同设计路段使用程序时修改程序的工作量。数据库中不需要输入纵坡，而程序自行根据变坡点进行计算，减少参数同时提高了计算精度。

5、数据库中第一行，可根据超高缓和段桩号，修改程序语言，确定全线各段的横坡。

初学卡西欧，各位高手不吝赐教！