Разница (угол) между двумя подшипниками

Question

Используя geosphere::bearing Я могу рассчитать подшипник двух линий, но можно ли рассчитать угол между двумя подшипниками?

Конечно, вы можете попытаться вычесть или сложить подшипники, но в определенных случаях, когда один отрицательный, а другой положительный, это не работает.

Например, если для ber1 = - 175 и ber2 = 175 угол между должен быть 10.

Есть предложения?

Answer 1

Я не уверен в готовой упаковке, но в случае, если вы заинтересованы в решении, вы можете попробовать

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