使用两个已知点推导增加距离的新坐标

Question

我尝试创建一个距离已知点 250NM 的新坐标点。我想保持从我的起点和已知点开始的轨迹。我如何使用这些信息来创建一个已知距离的新点：

# starting point
lat_0 = 4.842816
lon_0 = 7.017196

#known point
lat_1 = 4.108957
lon_1 = 8.099835
# this point is 78NM away from the starting point

我正在使用 R，但我可以毫无问题地翻译数学公式:)。因此，我想在 250NM 外创建一个新点，并保持此轨迹

Answer 1

library(sf)
library(mapview)
library(dplyr)
library(geosphere)

# test: what are we working with here?
test_df <- data.frame(point = 0:1, lon = c(lon_0, lon_1), lat = c(lat_0, lat_1))
test_df %>% sf::st_as_sf(coords = c("lon", "lat"), crs = 4326) %>% mapview::mapview()

# initialise points
point0 <- c(lon_0, lat_0)
point1 <- c(lon_1, lat_1)
#calculate bearing 0 >> 1
bearing0_1 <- geosphere::bearing(point0, point1)
#[1] 123.9916
# Calculate new point with calulated bearing ans distance
# 250 MN = 463000.2 metres
point2 <- as.vector(geosphere::destPoint(p = point0, b = bearing0_1, d = 463000.2))
# test output
rbind(point0, point1, point2) %>% as.data.frame(col.names = c("lon", "lat")) %>%
  dplyr::mutate(point = 0:2) %>%
  sf::st_as_sf(coords = c(1, 2), crs = 4326) %>% mapview::mapview()

使用两个已知点推导增加距离的新坐标

Derive new coordinates increasing a distance using two known points

r

coordinates