两个轴承之间的差异(角度)
Difference (angle) between two bearings
使用geosphere::bearing
我可以计算出两条线的方位角,但是可以计算出两个方位角之间的角度吗?
当然,您可以尝试对方位进行减法或求和,但在一个为负而另一个为正的特定情况下,这是行不通的。
例如,如果 ber1
= - 175 和 ber2
= 175 之间的角度应为 10。
有什么建议吗?
我不确定是否有现成的软件包,但如果您对解决方案感兴趣,那么您可以尝试
angle_diff <- function(theta1, theta2){
theta <- abs(theta1 - theta2) %% 360
return(ifelse(theta > 180, 360 - theta, theta))
}
这给出了示例轴承 -175 和 175 之间的角度
angle_diff(-175, 175)
#[1] 10
使用geosphere::bearing
我可以计算出两条线的方位角,但是可以计算出两个方位角之间的角度吗?
当然,您可以尝试对方位进行减法或求和,但在一个为负而另一个为正的特定情况下,这是行不通的。
例如,如果 ber1
= - 175 和 ber2
= 175 之间的角度应为 10。
有什么建议吗?
我不确定是否有现成的软件包,但如果您对解决方案感兴趣,那么您可以尝试
angle_diff <- function(theta1, theta2){
theta <- abs(theta1 - theta2) %% 360
return(ifelse(theta > 180, 360 - theta, theta))
}
这给出了示例轴承 -175 和 175 之间的角度
angle_diff(-175, 175)
#[1] 10