回帖：因上传不上来，现将实用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
ACMODE52R—P—1EXE1 选取R—P—1程序
″″X0″？A∶″Y0″？B∶″″X1″？C∶″Y1″？D∶测站及后视点
Lbl0 ∶″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 ◢ Goto0EXE
注：放样角为后视方向到前视方向夹角。
⑶计算
例控制点DA25(232332.669, 478581.965),后视点(232254.384, 478750.26)，拟放中桩P(232221.477,478752.731)，计算测站到中桩的距离及测角。
输入程序：ACMODE52选取 R-P-1 程序 EXE输入数据顺序：
X0?232332.669EXE输入控制点坐标,米
Y0?478581.965EXE
X1? 232254.384 EXE输入后视点坐标,米
Y1?478750.26EXE
X?232221.477 EXE输入中桩坐标,米
Y?478752.731 EXE
Q=8.126° EXE显示角度。
Q=8° 7‘ 33..65” 按角度键
S=203.776EXE显示距离,米
X0?…… 从略。 输入新一点坐标。重复计算