程序名稱：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——計算輸出結果
