测量坐标转施工坐标.doc

程序九：坐标正反算
FX4800实用于直线，在公路测量中，实用于求交点或ZH、HZ,方位角
已知两点坐标求这条线的方位角和距离
已知一点坐标和该线方位角和距离，求第二点坐标
程序说明
程序输入：出现(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)时候，输入1进入方位角和距离的计算，输入2计算第二点坐标
X(1)， Y(1)：1点坐标 X(2)，Y(2) ：2点坐标
S:两坐标间的距离 FWJ：（1→2）该线方位角
主程序名：ZBZFS
Lbl 1
A"(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)"
A=2Goto3
Lbl 2
{BCDE}:B”X(1)”:C”Y(1)”:D”X(2)”:E”Y(2)”：I=0:J=1
Pol((D-B),(E-C))
I”S=”
J<0J=J+360
J”FWJ=”
Goto 2
Lbl 3
{BCSE}:B”X(1)”:C”Y(1)”:S”S”:E”FWJ”:I=0:J=1
Rec(S,E)
X=B+I:Y=C+J
X”X(2)=”
Y”Y(2)=”
Goto 1

5800调试程序
主程序名：ZBZFS
Lbl 1
"(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)" ？A
If A=2：Then Goto3 ：IfEnd
Lbl 2
”X(1)”？B:”Y(1)”？ C:”X(2)” ？D:”Y(2)”？ E： 0→I: 1→J
Pol((D-B),(E-C))
”S=” :I
If J<0: Then J+360→J:IfEnd
”FWJ（1→2）=” :JDMS
Goto 2
Lbl 3
”X(1)”? B:”Y(1)”? C:?S:”FWJ（1→2）”? E: 0→I: 1→J
Rec(S,E)
B+I→X: C+J→Y
”X(2)=”: X
”Y(2)=”: Y
Goto 3