由本人整理自网络,谢谢原作者

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