CASIO fx-5800P FWJ方位角和距离计算程序

说明：本程序可计算两坐标点之间距离和方位角。

主程序名: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.403
Z(Y)?=462435.035
Q(X)?=3368085.544
Q(Y)?=462417.008
F=326°24ˊ28.67″
S=32.582