竖曲线放样

CASIO5800计算器公路竖曲线全线高程计算程序

时间:2010-09-16 19:02来源:未知作者:admin 点击:111次

SQXJSCX↙ Lb1 1↙ CLs:Fix3↙ K=?k◢ (计算点里程输入) If k67549.755 AND K66894.3 :Then -0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto 2 : IfEnd↙ If k68708.391 AND K67549.755 :Then -0.0048A : -0.00052B : 68494.3S :66.8G : 1

“SQXJSCX”↙

Lb1 1↙

CLs:Fix 3↙

“K=”?k◢ (计算点里程输入)

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<本段竖曲线终点里程 AND K≥前一竖曲线终点里

程 :Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙

………

依次类推，计算原始数据完成输入，坡度换算成小数。

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 : Els e 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↙