程序名称：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——计算输出结果