[分享]：4800P竖曲线程序

zhang82111979

竖曲线计算程序
A“JDK00+000”：B“HD”：C“R”：M“i-1”：D=M÷100：N“i-2”：E=N÷100：H=C÷2×ABS（D-E）： ------------------ 计算T长 ------------------
D>E =>F=-1：≠=> F=1 ：△      ------------- 判断是凹或凸曲线 --------------
LB1 1：{G}：G“ZHUANG”：
G<A-H=>I= -D：GOTO 2：≠=>   ---当桩号不位于竖曲线上时程序转到2处运行-----
G≤A =>I= -D：GOTO 3：≠=>   
G<A+H=>I= E：GOTO 3：≠=>   -
I= E：GOTO 2：△△△                        ----当桩号不位于竖曲线上时程序转到2处运行-----
LB1 2：J“HD”=B+I×ABS（G-A）▲   计算直线段桩号标高
GOTO 1：            程序转到1处输入下一点桩号
LB1 3：J“HD”=B+ ABS（G-A）×I+F×（H-ABS（G-A））2÷（2C）▲
GOTO 1：                计算竖曲线段桩号标高

nt_cgh

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——计算输出结果