[原创]：坐标<==>方位角和距离

xzg_hello

名称：XY/WV
作者：逍遥客
平台：ｆｘ－４５００（兼容fx－4800）
作用：坐标与方位角和距离互算
说明：
T=1/0    推算方位角和距离/坐标
X0,Y0  置镜点
X1,Y1  后视点
X,Y      放样点
W       方位角
V        距离
J         转角


源程序：
Deg
Lbl 1
{ABCDEF}
T"1/0"A"X0"B"Y0"
T=1=>Goto 3▲△
Lbl 2
C"W"D"V"
X=A+DcosC
Y=B+DsinC
Goto 1
Lbl 3
C"X1"D"Y1"E"X"F"Y"
Pol(C-A,D-B):W<0=>W=W+360△G[1]=W▲V▲
Pol(E-A,F-B):W<0=>W=W+360△G[2]=W▲V▲
J=G[2]-G[1]▲
Goto 1

shuaier

请把完整的程序放上来！