CASIO5800計(jì)算器公路豎曲線全線高程計(jì)算程序
                       
“SQXJSCX”↙
Lb1   1↙
CLs:Fix  3↙
“K=”?k◢    (計(jì)算點(diǎn)里程輸入)
If  k<67549.755  AND  K≥66894.3 :Then  -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto  2 : IfEnd↙
If  k<68708.391  AND  K≥67549.755 :Then  -0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto  2 : IfEnd↙
If  k<本段豎曲線終點(diǎn)里程  AND  K≥前一豎曲線終點(diǎn)里程 :Then  -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→豎曲線交點(diǎn)里程S :66.8→交點(diǎn)高程G : 100000→曲率半徑R : Goto  2 : IfEnd↙
………
依次類推，計(jì)算原始數(shù)據(jù)完成輸入，坡度換算成小數(shù)。

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

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

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

Lb1   5↙
H-0.304→H↙    (0.304為中心~路肩高差)
“H=”：H◢
Goto 1↙