如何解决视觉基础轴承
我想找到两个坐标点之间的方位
这里是坐标点
Dim Fnorth_Point= 42.141622 Dim FEast_Point= -84.474162 ' //first position
Dim SFnorth_Point= 40.691682 Dim SEast_Point= -83.243693 '//Second position:
If Fnorth_Point = SFnorth_Pointnorth_Point And FEast_Point = SEast_Point Then
MessageBox.Show("Make sure you entered the Latitude and longitude")
Else
Dim theta As Double = Fnorth_Point - SFnorth_Pointnorth_Point
Dim dist As Double = Math.Sin(deg2rad(FEast_Point)) * Math.Sin(deg2rad(SEast_Point)) + Math.Cos(deg2rad(FEast_Point)) * Math.Cos(deg2rad(SEast_Point)) * Math.Cos(deg2rad(theta))
dist = Math.Acos(dist)
dist = rad2deg(dist)
Dim finaldist As Double = dist * 1.1515
SBTBW.Text = finaldist
Dim SBBx = CInt(SBTBW.Text) ' convert to integer
SBTBW.Text = SBBx
End If
Private Function deg2rad(ByVal deg As Double) As Double
Return (deg * Math.PI / 180.0)
End Function
Private Function rad2deg(ByVal rad As Double) As Double
Return (rad / Math.PI * 180.0)
End Function
请随时纠正我。谢谢
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。