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

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

0 голосов
/ 31 мая 2018

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

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

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

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

1 Ответ

0 голосов
/ 31 мая 2018

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

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
...