5800计算器竖曲线程序

5800计算器竖曲线程序

《SQX》竖曲线

Lbl 0：“K”？→K : Prog “S JK”：C-D→F:Abs(RF/2→T:RabsF/F →R:if K

Lbl 1：A-(B-K)C-G2(2R→H：”H=”:H◢

GOTO 0

《SJK》数据库—样例

if K<142841.25 :Then 43.08→A: 142500→B:0.0198→C:-0.0075→O:2500→R: GOTO 0:ifEnd:

if K<144528.75 :Then 28.788→A: 144400→B:-0.0075→C:-0.0178→O:2500→R: GOTO 0:ifEnd:

if K<145000 :Then 18.108→A: 145000→B: -0.0178→C:0→O:0→R: GOTO 0:ifEnd:

Lbl 0： K——计算点桩号

说明：K≤第一竖曲线终点桩号（142842.25）A——第一竖曲线交点高程（43.038）：B——第一竖曲线交点桩号（142500）：C——第一竖曲线前坡度（.0198）：D——第一竖曲线后坡度（-.0075）：R=第一竖曲线半径（25000）⊿

K≤第二竖曲线终点桩号（144528.75）下同

以竖曲线的终点划分为第一曲线，后面的直线段为第二曲线段，以此类推：