Conlidado Semana 5
Conlidado Semana 5
Conlidado Semana 5
# No margin
par(mar=c(0,0,0,0))
# World map
map('world',
col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,
mar=rep(0,4),border=0, ylim=c(-80,80)
)
# Data frame
data <- rbind(Yukon, manitoba, senkaya, provincia_kyzylorda,Myanmar) %>%
as.data.frame()
colnames(data) <- c("long","lat")
# Load geosphere
library(geosphere)
# Background map
map('world',
col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,
mar=rep(0,4),border=0, ylim=c(-80,80)
)
Utilizando ley de Haversine se calcula la distancia (d) entre las dos ciudades, no sin antes convertir
las coordenadas de grados a radianes:
Ahora, usando Google Earth ubicamos las dos coordenadas y trazamos la línea de distancia:
Podemos concluir que, para este caso, la ley de Haversine nos dio un valor muy cercano al que
Google Earth proporciona, con una diferencia de 50 metros.
Ejercicio 3. Construya un triangulo con base en 3 ciudades del ejercicio 1, aproximando las
distancias
calculadas con la ley de Harvensine de tal forma en que logre calcular los 3 ángulos internos de
dicho
triangulo.
Ley de Harvensine para obtener la distancia.