坐标方位角函数代码
Public Function fwj(X, Y) ‘—–方位角计算
Pi = 4 * Atn(1)
If X = 0 And Y > 0 Then
fwj = Pi / 2
ElseIf X = 0 And Y < 0 Then
fwj = 3 * Pi / 2
ElseIf X = 0 And Y = 0 Then
fwj = “无法反算方位角！”
Else
T = Atn(Y / X)
If X < 0 Then
fwj = T + Pi
ElseIf Y < 0 Then
fwj = T + 2 * Pi
Else
fwj = T
End If
End If
End Function
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。