5800竖曲线程序

                CASIO5800计算器公路竖曲线全线高程计算程序
                                          作者：李俊
Lb1   1↙
If  S<188.716  AND  S≥0 :Then  0.005→A : 0.06429→B : 165→K : 1815.25→G : 800→R : Goto  2 : IfEnd↙
If  S<572.748  AND S≥188.716 :Then  0.06429→A : 0.03423→B : 557.718→K :1840.4981→G : 1000→R : Goto  2 : IfEnd↙

If  S<本段竖曲线终点里程  AND  S≥前一竖曲线终点里程 :Then  0.005→前坡A :       0.06429→后坡B : 165→竖曲线交点里程K :1815.25→交点高程G : 800→曲率半径R : Goto  2 : IfEnd↙
………
依次类推，计算原始数据完成输入，坡度换算成小数。

If  S≤道路终点里程 And  S≥最后一条竖曲线的起点里程 ：Then  0.025→本段竖曲直线坡度A  ：   3750→前段竖曲线交点里程K ： 1800→交点高程G   ：Goto 6  ：IfEnd

Lb1   2↙
K-S→L ： A-B→W : Abs（R*W/2）→T : K-T→C : K+T→D ↙
If   S≤C : Then  G-L*A →H : Goto 5 : Else   If   S≤K : Then  Goto3 : Else   If   S≤D : Then  Goto4  : IfEnd : IfEnd : IfEnd↙

Lb1   3↙
If   W>0 : Then  G-A*L-(C-S)2/(2R)→H  : Goto 5 : Else   If W<0 : Then  G+(C-S) ^2/2/R-L*A→H  : Goto 5 : IfEnd : IfEnd↙

Lb1   4↙
If   W>0 : Then  G-(S-D) ^2/2/R-L*B→H  : Goto 5 : Else   If  W<0 : Then  G+(S-D)^ 2/2/R-L*B→H  : Goto 5 : IfEnd : IfEnd↙

Lb1   6↙
G+A*(S-K)→H:GOTO 5

Lbl 5

"H=":H◢

Return