坐标正反算

以下是该论文的内容：


二、坐标正反算程序

这个程序对已经使用全站仪的朋友没有用了，不过可以用作测量的内业计算。

2.1 程序清单
1 W:X"X0":Y"Y0"
2 AbsW≠1=>”END”⊿
3 W=1=>Goto2:≠>W=-1=>Goto1∟∟
4 LbI1
5 {OP}:O"Xn":P"Yn"
6 O-X≠0=>Goto3∟
7 P-Y=0=>GotoA∟
8 LbI3
9 Fixm:PoI(O-X,P-Y
10 J≥0=>F=J:≠>F=J+360∟
11 "HR=":F→DMS⊿
12 "HD=":D=I⊿
13 Goto1
14 LbI2
15 {DF}
16 Rec(D,F:Fixm
17 "X=":O=X+I⊿
18 "Y=":P=Y+J⊿
19 Goto2

2.2 符号及其意义
W：W=-1反算坐标，W=1正算距离和方位角。
XO、Y0：设站点或起算点坐标。
Xn、Yn：待放点或n点坐标。
HR、HD：计算的两点的方位角和距离。
D、F：两点间的距离和方位角。
X、Y：已知D、F时计算的待算点坐标。

2.3 算例

起算点坐标 X0？ Y0？
7891.0093 9536.8550
反算坐标
W=-1 输入数据 显示结果
Xn？ Yn？ HR= HD=
8434.0167 9754.4969 21°50′28.77″ 585.0000
正算距离和方位角W=1 D？ F？ X= Y=
585.0000 21°50′28.77″ 8434.0167 9754.4969
2006年11月01日