第1行： Deg:Fix3↙
第2行： “K=”?K:”X0=”?A:”Y0=”?B:”FWJ=”?F↙
第3行： LbI 0:”X1=”?C:”Y1=”?D↙
第4行： Pol(C-A,D-B):If J<0:Then J+360→J:Ifend↙
第5行： J-F→M↙
第6行： “LC=”:K+Icos(M)⊿
第7行： “JU LI=”:Isin(M)⊿
第8行： Goto 0↙
说明：
K——起点里程
X0、Y0——起点坐标
FWJ—— 方位角
X1、Y1——取样点坐标
LC——所求里程
JU LI——偏（垂）距（负值表示在左边，正值表示在右边）
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。