Минимальный ограничивающий прямоугольник круга на сфере

Question

Какие пакеты R доступны для расчета минимальной ограничительной рамки для большого круга?

Например:

box <- polycirc( c( longitude, latitude ), distance=35 )

Это вернет ограничивающую рамку для круга с радиусом35 километров от центральной точки по заданным координатам (на Земле).Где:

box.longitude_min = The longitude of the circle's western-most point.
box.longitude_max = The longitude of the circle's eastern-most point.
box.latitude_min = The latitude of the circle's southern-most point.
box.latitude_max = The latitude of the circle's northern-most point.

Нечто подобное должно уже существовать в R, но я не могу его найти.Самое близкое, что я нашел (из SO), которое я в настоящее время трансмогрифицирую в R, это:

http://janmatuschek.de/LatitudeLongitudeBoundingCoordinates

Кроме того, какое слово (если есть) для минимальный ограничивающий прямоугольник круга ?(Противоположность ограничена .)

Answer 1

Дано мне:

  library( geosphere )
  p <- c( longitude, latitude )
  box <- apply( destPoint( p, c(0, 90, 180, 270), distance ), 2, range )
  print( box )

Answer 2

Используйте функцию polycirc, чтобы сгенерировать точки круга, а затем min и max, чтобы найти ограничивающий прямоугольник:)

require(pgirmess)
circle <- polycirc(20, c(10, 20))
plot(circle, type = "l")
rect(min(circle[,1]), min(circle[,2]), max(circle[,1]), max(circle[,2]))