¡Descarga escenario 5 pregunta 1 y más Apuntes en PDF de Cálculo para Ingenierios solo en Docsity!
A continuación les comparto mi aporte, esperando que este sea de gran ayuda para la realización de la actividad.
Ejercicio 1.
Dibuje la ruta de vuelo de acuerdo con la localización de las ciudades, las coordenadas de cada una de las ciudades se encuentran en cuadro 1 que se obtienen con base en el ejercicio 1 de las actividades de la Semana 4. Recuerde que puede usar el código en R en el foro para realizar la trayectoria. Tome una captura de pantalla y carguela dentro del foro, junto con todos los valores del cuadro.
Solución:
Ángulos del ejercicio #1 de la semana 4
Con los grados obtenidos, reemplazamos:
Longitud Latitud
Ciudad 1
Ciudad 2:
Ciudad 3
Ciudad 4
Ciudad 5
Tabla de Valores:
Longit ud
Latitud
Ciud ad 1
Ciud ad 2
Ciud ad 3
Ciud ad 4
Ciud ad 5
En la aplicación de coordenadas GPS, buscamos a que ciudades corresponden los datos de la tabla de valores. https://www.coordenadas-gps.com
Ciudad 1
Ciudad 2
Con todas las ciudades ya ubicadas en la aplicación de coordenadas GPS, obtenemos el siguiente cuadro de valores:
Longitu d
Latitud
Yukón, Canadá
Manitoba (MB), Canadá
Senkaya, Turquía
Kazajistán, Provincia de kyzylorda
Myanmar, Mingsat o Distrito Mongsat
Según las Latitudes y Longitudes anteriores, el cogido R me arrojo la siguiente trayectoria:
Código de Vuelo
World map is available in the maps package
library(maps)
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) )
Dplyr for data wrangling and pipe function
library(dplyr)
Cities (Longitud, Latitud)
yukon <- c(-134.16,63.46)
mb <- c(-98.68,51.10) senkaya <- c(42.32,40.66) kazajistan <- c(63.46,45.83) myanmar <- c(98.68,21.15)
Data frame
data <- rbind(yukon,senkaya, kazajistan, mb, myanmar) %>% as.data.frame() colnames(data) <- c("long","lat")
Show the cities on the map
map('world', col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05, mar=rep(0,4),border=0, ylim=c(-80,80) ) points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)
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) )
Dot for cities
points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)
Compute the connection between yukon and mb
inter <- gcIntermediate(mb, yukon, n=50, addStartEnd=TRUE, breakAtDateLine=F)
Show this connection
lines(inter, col="slateblue", lwd=2)
Between mb and senkaya
inter <- gcIntermediate(senkaya, mb, n=50, addStartEnd=TRUE, breakAtDateLine=F) lines(inter, col="slateblue", lwd=2)
Between senkaya and kazajistan
inter <- gcIntermediate(kazajistan, senkaya, n=50, addStartEnd=TRUE, breakAtDateLine=F) lines(inter, col="slateblue", lwd=2)
Between kazajistan and myanmar
inter <- gcIntermediate(myanmar, kazajistan, n=50, addStartEnd=TRUE, breakAtDateLine=F) lines(inter, col="slateblue", lwd=2)
