用于CASIO4X00计算器的坐标反算程序（已知两坐标求算其平距和方位角）（最简）


源程序如下：
程序名：【AZIMUTH】
I=0：J=0 LbI0 Norm Deg {DGXY} D"XA"G"XB"X"XB"Y"YB" Pol(X-D,Y-G) J<0=>J=J+360△ Fix6 J"AZIMUTH A-B"=IntJ+.01Int(60FracJ)+. 006Frac(60FracJ)▲ Fix3 I"H.DIST="▲ Goto0
特点：界面友好、简单易用、输出方便
注意：本程序在CASIO4800上调试运行通过。如果是在4500上运行请将源程序中的I，J分别用V，W替代即可。
运行后界面如下：
输入项目 XA？————————————
请输入点A的X坐标，按EXE键输入下一个量，下同。
YA？————————————请输入点A的Y坐标。
XB？————————————请输入点B的X坐标。
YB？————————————请输入点B的Y坐标。
显示项目 AZIMUTH A-B=###.######————————————显示点A到点B的方位角（小数点前为度，小数点后第一二位表示分，三四五六位表示为##.##秒。如12.523356即表示为12°52′33.56″.如果你将J"AZIMUTH A-B"=IntJ+.01Int(60FracJ)+. 006Frac(60FracJ)改为J"AZIMUTH A-B="的话则必须在输出结果后按"°′″"键将其转换为度分秒.
H.DIST=###.###——————————————显示AB两点的平距值（三位小数）。再按EXE就转入下一个计算循环。

由本站的论坛版本　半边书生　提供分享