卡西欧5800-竖曲线全线高程计算程序

竖曲线全线高程计算程序（数据库模式-精简版）

主程序：ＫSＨ

Lb1 0 :＂K=＂? Ｋ:＂D=＂?D:＂H=＂?Ｈ

Lb1 1:Prog＂ＫSＨ０＂

If Abs(Ｓ-Ｋ)≥Abs(Ｔ):Then Ｐ+Ｉ(Ｋ-Ｓ)→Ｕ：IfEnd

If Abs(Ｓ-Ｋ) < Abs(Ｔ):Then (Ｓ-(Ｔ)-Ｋ)²/(2R)+(P+I(K-S))→Ｕ：IfEnd

Lb1 2 ：Ｕ-D-Ｈ→G

Locate1,1，＂Ｋ=＂: Locaet3,1，Ｋ: Locaet1,2，＂D=＂: Locaet3,2，D: Locaet1,3，＂Ｈ=＂: Locate3,3，Ｈ: Locaet1,4，＂G=＂: Locaet3,4，G◢

Goto 0

数据库Ｋ：KSＨ０

K< 0 => Stop

If K>0:Then 200→S:-12000→R:45.04→P:0.01345→I:62.7→T:If End

If K>262.7:Then 520→S:7000→R:46→P:0.003→I: 94.481→T :IfEnd

If K> ……

输入提示：

If K>前段竖曲线终点里程: Then 本段竖曲线交点里程→S: 曲率半径（凸负凹正）→R: 交点高程→P: 纵坡（上正下负，以小数表示，如0.3%为0.003）→I: 切线长→T : Ifend

符号说明：

K=？: 输入待求桩号；

D=？: 若计算路面高程输入0；若计算路基高程则输入路面与路基的高差；

（如：路面比路基高0.5米，则输入0.5，算出结果就是路基的设计高程。）

H=？: 计算设计高程则输入0；若计算高差时；则输入实测高程；

G= : 若H输入0，G表示设计高程；若H输入为实测高程，G表示高差（正为填，负为挖）

注：纵坡的设计精度不够会使程序计算出的精度也不够，可以微调纵坡调整（如0.3%的0.003改为0.00301或0.002995），以每段竖曲线的前端来验证，若计算出的高程比设计的高程低，就加大纵坡比，相反则减小纵坡比。