CASIO4800P豎曲線計算程序

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