IF K<＊＊＊＊.＊＊＊: THEN *→A：*→B：*→C：*→D：*→E： *→ F： *→G ：Goto 0 :⊿----------LBI 0注：K-----测点里程 DKIA-----起点X XAB-----起点Y YAC-----起点坐标方位角 CAD-----起点曲率 1／RA 左偏为负；右偏为正E------终点曲率 1／RB 左偏为负；右偏为正F------起点里程 DKAG------终点里程 DKB1、正算：Z◢2、反算：F3、路任意里程点坐标：XL-ZB