¿Cómo puedo resolver este problema de trigonometría esférica?

Question

Determinar la distancia entre Manila (Latitud: 14.604N, Longitud: 120.982 E) y Phnom Penh, Camboya (Latitud: 11.562N, Longitud: 104.916 E). ¿A qué hora llegaré a Phnom Penh, Camboya, si el avión sale de Manila a las 21:25 con una velocidad media de 400 nudos?

coor1 = {14.604, 120.982};
coor2 = {11.562, 104.916};

Answer 1

coor1 = {14.604, 120.982};
coor2 = {11.562, 104.916};

UnitConvert[GeoDistance[coor1, coor2], "Km"]

Quantity[1774.02, "Kilometers"]

GeoGraphics[
 {
  PointSize[Large]
  , Point[GeoPosition@{coor1, coor2}]
  , Red,
  Line[GeoPosition@{coor1, coor2}]
  }
 , GeoRange -> Quantity[2000, "Km"]
 ]

UnitConvert[
 GeoDistance[coor1, coor2]/Quantity[400, "Knots"]
 , "SI"]

Quantity[8621.04, "Seconds"]

 DatePlus[TimeObject[{9, 25, 0}], Quantity[8621.035527369528`, "Seconds"]]

TimeObject[{11, 48, 41.0355}, TimeZone -> 1.]