直线

直线

第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——偏(垂)距(负值表示在左边,正值表示在右边)

分享到 :