1坐标反算(ST)
Lb1 1：＂X1=＂？A：＂Y1=＂？B
Lb2 2：＂X2=＂？C：＂Y2=＂？D
＂S(1-2)=＂：POL(C－A,D－B)→S▲
IF J﹥0：Then J→T：Else J+360→T：If End
＂T=＂：T→DMS▲
＂K=＂？Ｋ
If K=1：Then Goto1：If End
If K=2：Then Goto2：If End
If K=3：Then C→A：D→B：Goto 2：If End 0
说明：
1、　首先输入架站点坐标X0、Y0（O点）。
2、　再输入后视点坐标XP、YP（P点）。
3、　计算出O―P的边长S和方位角J。
4、　当K＝1时，重新输入O、P点的坐标。
5、　当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。
6、　当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。