用计算机pol计算方位角,如何通过编程代替计算器内部函数“Pol和Rec”

如何通过编程代替计算器内部函数“Pol和Rec”

代码如下：

Fix 3                       保留3位小数到mm

{A}                        置仪点N座标

{B}                        置仪点E座标

Lbi 1

{X}                        放样点X座标

{Y}                        放样点Y座标

S=√((A-X)^2+(B-Y)^2) ◢    置仪点与放样点距离

A A>X→B>Y→C=270-tan-1 ((A-X)/(B-Y)): ⊿⊿

A>X→B AY→C=270+tan-1 ((X-A)/(B-Y)): ⊿⊿

C>360→C=C-360: ⊿

D=C◢                   置仪点与放样点方位角

Goto 1

在使用fx-4800P等计算器编程时，已知两点座标求距离与方位角，常常要使用内部函数“Pol和Rec”，而使用这两个函数时，计算器默认把距离赋给变量I，方位角赋给变量J，给编程带来一些不便。能否通过编程代替这两个内部函数，我进行了些尝试。希望上面这个小程序能给大家以后的编程带来一些便利