最近看了覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》后，发现个别语句中缺乏命令或符号，如PR16 主程序中两句Else If F=0:Then X[K] List X[K+1]都缺List，程序不能正常运行，应该修改为Else If F=0:Then List X[K] List X[K+1]。本人根据CASIO fx-5800P 矩阵编程计算器的特点整编了这个程序。与覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》中的PR13、 PR16 相比，它不管有没有缓和曲线都能用（没有缓和曲线提示Lh=?时，输入0 即可），而且本程序还考虑到了有缓和曲线的圆曲线测设多数在HY、YH 上置镜，设置了提示是否在HY、YH 上置镜，并将在HY、YH 上置镜的偏角、弦长计算出来，用起来更方便。