5800后方交会程序

5800后方交会程序

源程序代码： 程序名：HJ Lbl 1 Clr \？X \？Y \？A \？B \？C \？D \

\\\

\F->K:R->F F->R:K->F Pol(X-A,Y-B

360Frac ((J+360)/360->J

cos-1 ((C^<2>+I^<2>-D^<2>)÷(2CI))->O

O->V:C->K:D->C:K->D:cos^-1 ((C^<2>+I^<2>-D^<2>)÷(2CI))->O

O->W:C->K:D->C:K->D 3600(180-W-V-R)->Z

Csin W->H 206265->P

H^<2>G^<2>Z/(H^<2>G^<2>+P^<2>((cos W)^<2>F^<2>))->K

KP/G^<2>/H->N NE^<2>cos V->L NF^<2>cos W->M R+K/3600->R

Int (Exp3(C+L)+0.5)/Exp3->C Int (Exp3(D+M)+0.5)/Exp3->D (C^<2>+I^<2>-D^<2>)/2/I^<2>->L Sqrt(C^<2>/I^<2>-L^<2>)->M

A-X->V B-Y->W X+VL-QWM->U Y+WL+QVM->S

Sqrt((K/Z)((E^<2>+F^<2>)/(sin R)^<2>+P^<2>E^<2>F^<2>/H^<2>/G^<2>))->M

ClrText

\＜P=\黑三角DMS黑三角

\(Exp3U+0.5)/Exp3:Locate 5,4,Int (Exp3S+0.5)/Exp3:Locate 5,5,M黑三角

Goto 1 三、说明：

1、XA是已知点A的x坐标； 2、YA是已知点A的y坐标； 3、XB是已知点B的x坐标； 4、YB是已知点B的y坐标；

5、HD1是自由设站点P至已知点A的测距； 6、HD2是自由设站点P至已知点B的测距； 7、

8、CeJiao Zhong Wu Cha是测角中误差（秒），如：MR=5；

9、HD-1 Zhong Wu Cha是PA测距中误差（mm); 10、HD-2 Zhong Wu Cha是PB测距中误差（mm);

11、+-是三角形PAB的编号顺序，顺时针编号输入1，逆时针编号输入-1;

12、＜P=是经过平差后的夹角∠APB； 13、PA=是经过平差后的PA测距； 14、PB=是经过平差后的PB测距；

15、XP=是经过平差后的自由设站点P的x坐标； 16、YP=是经过平差后的自由设站点P的y坐标；

17、MP=是经过平差后的点位中误差(m);

算例：

已知点A（61749.436,95127.533)，B（60112.617,97808.541);在P点设置GTS-310D型全

站仪测得PA、PB及夹角a0值分别为2221.99m,1053.106m,144°

43′40″，现求设站P点的坐标及点位精度。

运行主程序JIAOHUI-BJ1：

输入数据： 1、XA？ 61749.436 回车

2、YA？ 95127.533 回车

3、XB？ 60112.617 回车

4、YB？ 97808.541 回车 5、HD1？ 2221.99 回车 6、HD2？ 1053.106 回车

7、

8、CeJiao Zhong Wu Cha？

5 回车

9、HD-1 Zhong Wu Cha？

7.4E-3 回车

10、HD-2 Zhong Wu Cha？

5.1*E-3 回车 11、+ -1？

-1 回车(注：三角形PAB按逆时针编号输入，则输入-1）

显示： 1、