Minimales Begrenzungsrechteck eines Kreis auf einer Kugel

Question

Was R-Pakete sind die Mindestbegrenzungsrahmen für einen großen Kreis zu berechnen?

Zum Beispiel:

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

Dies würde zurückkehrt den Begrenzungsrahmen für den Kreis mit einem Radius von 35 Kilometern vom zentralen Punkt an den angegebenen Koordinaten (auf der Erde). Wo:

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.

So etwas sollte bereits in R vorhanden ist, aber ich kann es nicht finden. Die nächstgelegene I (aus SO) gefunden habe, die ich zur Zeit auf R bin modelt, ist:

http://janmatuschek.de/LatitudeLongitudeBoundingCoordinates

Auch, was ist das Wort (falls vorhanden) für minimales Rechteck eines Kreises begrenzt ? (Das Gegenteil von umschriebenen .)

Answer 1

Bei mir:

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

Answer 2

Verwenden Sie die polycirc Funktion die Punkte des Kreises zu erzeugen und dann min und max den Begrenzungsrahmen zu finden:)

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]))