5800 竖曲线程序（绝对能用）SQX“I1”？A:“I2 ”？B:“BD”？C:“BH”？E:“R ”？R 回车A- BW:RAbs(W100)2T 回车If W0:Then -1K:Else 1K:IfEnd 回车C-TF:C+TG 回车Lbl 0:“D”？D:回车If DF:Then Goto 1:Else If DC:Then Goto 2:Else If DG:Then Goto 3:Else If DG:Then Goto 4:IfEnd:IfEnd:IfEnd:IfEnd回车Lbl 1 回车“H”:(D-C)A100+EHGoto 0回车Lbl 2 回车“H”:(D-C)A100+E+K(D-F)(2)2RHGoto 0回车Lbl 3回车“H”:(D-C)B100+E+K(D-C)(2)2RHGoto 0回车Lbl 4回车“H”:(D-C)B100+EH回车Goto 0注： I1 是前坡坡度I2 是后坡坡度BD 是变坡点里程BH 是变坡点高程R 是半径D 待求点里程H 求出的待求点高程本程序用于 5800 计算器
