程序名称:SQX        “竖曲线计算主程序”
IA“⊿I1”B“⊿I2”C“BP”F“HP”RT
D=C-T:E=C+T
Lbl  0:{K}
KD= >X=C-K:N=A:Goto 1⊿
K≥E= >X=C-K:N=B:Goto 1⊿
K≤C= >X=K-D:Y=C-K:N=A:Goto 2:≠>X=E-K:Y=C-K:N=B:Goto 2⊿
Lbl  1:H“HS”=F-XN◢
Goto 0
Lbl  2:H“HS”=F-YN-I X2÷2÷R◢
Goto 0
注:
    I——竖曲线为凹型时输入-1,为凸型时输入1;
   ⊿I1、⊿I2——输入格式为0.###
     BP——为变坡点里程
   HP——为变坡点高程
   R——半径
   T——切线
   K——输入待计算桩号
   HS——计算输出结果