因上传不上来，现将实用5800P测量程序公布，按正规测量编制，清多提意见！
㈡坐标放样计算程序R-P-1程序
⑴计算公式
已知两点P0(X0,Y0)(测站)、放样点P(X,Y)的坐标，見 图1，计算方位角Q及两点的距离。
； 公式 1
。 公式 2
测站P0 (X0，Y0)、后视点P1 (X1，Y1)、放样点P (X，Y)，计算放样角Q及距离S 。放样角为后视方向到前视方向的夹角。
⑵坐标放样程序R—P—1程序设计 5800P
AC MODE 5 2 R—P—1 EXE 1 选取R—P—1 程序
″″X0″？A∶″Y0″？B∶″″X1″？C∶″Y1″？D∶ 测站及后视点
Lbl 0 ∶″X″？X∶″Y ″？Y∶Pol (C-A) , (D - B)∶J→G∶ 放样点
Pol (X-A) , (Y - B)∶ J - G→G∶G ＜0 => G + 360→G ∶ 显示放样角及距离
〝Q =〞∶G ◢
〝S =〞∶I ◢ Goto 0 EXE
注：放样角为后视方向到前视方向夹角。
⑶计算
例控制点DA25(232332.669, 478581.965),后视点(232254.384, 478750.26)，拟放中桩P(232221.477,478752.731)，计算测站到中桩的距离及测角。
输入程序：AC MODE 5 2 选取 R-P-1 程序 EXE 输入数据顺序：
X0? 232332.669 EXE 输入控制点坐标,米
Y0? 478581.965 EXE
X1? 232254.384 EXE 输入后视点坐标,米
Y1? 478750.26 EXE
X? 232221.477 EXE 输入中桩坐标,米
Y? 478752.731 EXE
Q= 8.126° EXE 显示角度。
Q= 8° 7‘ 33..65” 按角度键
S= 203.776 EXE 显示距离,米
X0? …… 从略。 输入新一点坐标。重复计算
