由本站在网络收集整理，仅供学习，未验证其正确性



CASIO计算器竖曲线计算程式
R"BJ"T"QX"Q"QZL"
H"QZH"C"CP"E"HP":A=Q-T:B=Q+T↙
Lbl0:｛I｝:I"SQ"<A⇒G=H-C(Q-I)◢≠=>I>B⇒G=H+E(I-Q)◢≠=>S=I-Q:I<Q⇒D=I-A:P=SC:Goto1:≠=>D=B-I::P=SE:Goto1
Lbl1:C>0⇒Goto2◢≠=>Goto3◢
Lbl2:E>0⇒Goto4◢≠=>Goto6◢
Lbl3:E>0⇒Goto7◢≠=>Goto5◢
Lbl4:C>E⇒Goto6◢≠=>Goto7◢
Lbl5:C>E⇒Goto7◢≠=>Goto6◢
Lbl6:G"GH"=H+P-D2÷2÷R◢
Goto0↙L
bl7:G"GH"=H+P+D2÷2÷R◢G
oto0↙

说明： BJ半径 QX切线长 QZL交点里程 QZH交点高程 CP前坡 HP后坡 SQ所求里程