5800竖曲线计算程序.doc

5800竖曲线计算程序（主程序）LbI 1: “H"? H: Prog"SJK”: C-D →F:Abs(RF/2)→T:R(Abs(F )/F)→R :If H≤B-T: Then 0→K : E