用赤纬更新坐标

Question

我有大约600个gps坐标，需要用赤纬调整。一个现场小组走出去，在已知方位和距离gps点的位置收集数据。他们没有得到这些点的坐标，也没有在罗盘上调整它们的偏角。我在ArcPro中使用中心的已知坐标以及给定的距离和方位创建了点。我曾尝试使用几何空间在ArcPro中调整轴承，但似乎无法使其正常工作

我被告知写一个代码来调整方位，我做到了，角度调整工作正常，但坐标向东移动太远了。如果您能为R、Python或ArcPro提供任何帮助，我将不胜感激。非常感谢。这是我的密码：

HF.east <- HF.points$Easting

HF.north <- HF.points$Northing

HF.dat <- matrix(c(HF.east,HF.north),
          byrow = T,nrow = 2)

t(HF.dat)

HF.theta <- 16.08


HF.rot <- matrix(c(cos(pi*HF.theta/180),
            sin(pi*HF.theta/180),
            -sin(pi*HF.theta/180),
            cos(pi*HF.theta/180)),
            byrow=T,nrow=2)

(HF.rot.dat <- HF.rot %*% HF.dat)

HF.dec <- as.data.frame(t(HF.rot.dat))