坐标和方位角正反算,比如你已知A(XA,YA),B(XB,YB) 方位角αAB=ARTTAN |YB-YA|/|XB-XA| 其中这里存在着象限问题。第一象限就是这个角 第二象限要180加上这个角。 第三象限要180减去这个角 第四象限要360减去这个角 关于如何判断在哪个象限的话 可以用△X,△Y来判断
以下是VBA程序源码,添加到模块中即可运行!Function chenchao_fwj(Sx As Double, Sy As Double, Ex As Double, Ey As Double, abcyt As Integer)
Dim DltX As Double, DltY As Double, aa As Double, Pi As Double
Pi = Atn(1) * 4
DltX = Ex - Sx
DltY = Ey - Sy + 1E-20
aa = Pi * (1 - Sgn(DltY) / 2) - Atn(DltX / DltY)
aa = aa * 180 / Pi
chenchao_fwj = FFFsky(aa, abcyt)
End Function
说明:
源码名称:chenchao_fwj(A,B,C,D,2)源码格式:chenchao_fwj(测站X,测站Y,前视X,前视Y,显示格式)
如有不懂的请咨询本团,谢谢!