说明:本程序可计算两坐标点之间距离和方位角。
主程序名:FWJ(程序名称)Lbl 1(接收命令)Deg:Fix 3(基本设置)"Z(X)"?A:"Z(Y)"?B:"Q(X)"?C:"Q(Y)"?D(变量名称)Pol(C-A,D-B):I→E:If J<0:Then J+360→F:Else J→F:IfEnd(计算公式)Cls:"F=":Locate 3,1,F°:"S=":Locate 3,2,E◢(显示结果)Goto 1(转移命令)核对数据:Z(X)?=3368058.403Z(Y)?=462435.035Q(X)?=3368085.544Q(Y)?=462417.008F=326°24ˊ28.67″S=32.582
联系客服