¡Descarga escenario 5 pregunta 1 y más Apuntes en PDF de Cálculo para Ingenierios solo en Docsity! 3/10/23, 22:31 Foro: Desarrollo del trabajo - Escenarios 3, 4 y 5: ALEJANDRO CARDENAS CASTRO https://poli.instructure.com/courses/55315/assignments/364290/submissions/185627 1/6 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 3/10/23, 22:31 Foro: Desarrollo del trabajo - Escenarios 3, 4 y 5: ALEJANDRO CARDENAS CASTRO https://poli.instructure.com/courses/55315/assignments/364290/submissions/185627 2/6 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 3/10/23, 22:31 Foro: Desarrollo del trabajo - Escenarios 3, 4 y 5: ALEJANDRO CARDENAS CASTRO https://poli.instructure.com/courses/55315/assignments/364290/submissions/185627 5/6 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) 3/10/23, 22:31 Foro: Desarrollo del trabajo - Escenarios 3, 4 y 5: ALEJANDRO CARDENAS CASTRO https://poli.instructure.com/courses/55315/assignments/364290/submissions/185627 6/6 Editado por MARIA ANDREA HERNANDEZ OSORIOel 3 de oct en 8:31 Respuesta Quedo atenta a cualquier inquietud, Éxitos para todos! Bibliografía: https://www.coordenadas-gps.com