r-找到转向面以实现两个轴承之间的最小角度

如何解决r-找到转向面以实现两个轴承之间的最小角度

此问题基于Difference (angle) between two bearings。

基本上，如果我们可以找到两个轴承之间的差异，那么我们可以找到物体需要旋转以实现最小旋转量的一侧。

使用R中的解决方案/函数，来自上一个问题：

angle_diff <- function(ber1,ber2){
  theta <- abs(ber1 - ber2) %% 360 
  return(ifelse(theta > 180,360 - theta,theta))
  }

要显示所需的内容，请举两个示例：

第一个例子：如果我们有ber1 =-175和ber2 = 175，为了使对象从方位-175转到方位175，它需要顺时针旋转 10度。

第二个例子：如果我们有ber1 =-10和ber2 = 50，为了使对象从方位-10变为方位50，它需要顺时针旋转 / strong> 60度。

在上面提到的问题中找到了找到最短项的度数，但是有可能发现需要顺时针还是逆时针旋转吗？

解决方法

也许是这样吗？

Run Your Python Program

^{由reprex package（v0.3.0）于2020-08-15创建}