施工测量中的坐标、高程的几种计算方法(5)

子程序V.SUB

Prog″R.SUB″

V=R-180+B

V＜0＝＞G=360+R-180+B▲

≠＝＞R-180+B▲

子程序R.SUB

U＞0＝＞Goto 1

≠＝＞Goto 2

Lb1 1

W＞＝＞R=P▲

≠＝＞R=180+P▲

Lb1 2

W＞＝＞R=360+P▲

≠＝＞R=180+P▲

（1）求夹角、距离

文件名：JIAJIAO-1 （Z、J）为置镜电坐标；（A、B）为后视点坐标；（E、F）为前视点坐标。R为由后视到前视的顺时针夹角；I为置镜点到前视的距离。 Z

J

A

B

E

F （A，B）

C=A-Z

D=B-J

U=E-Z （E，F）

V=F-J

M=D÷C

N=V÷U

I=√（U2+V2）▲

Prog“X.SUB” （Z，J）

Prog“Y.SUB”

X≥Y=＞R=360-X+Y▲

≠＝＞R=Y-X▲

子程序如下：

文件名：X.SUB

D≥0＝＞Goto1

≠＝＞Goto2

Lb1 1

C＞0＝＞X=tan-1M▲

≠＝＞X=180+ tan-1M▲