求一套卡西欧5800计算器两头是直线中间带圆曲线和缓和曲线的程序

本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢，本程序大大提高了反算速度。1. 主程序(TYQXJS) Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”? 1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：? Lbl 1:? Z： Abs(S-O) →W：Prog "SUB1"： &q