第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——偏(垂)距(负值表示在左边,正值表示在右边)
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。