Scribd
Cargar
23 vistas10 páginas

Aporte Semana 5

APORTE 2 SEMANA 5 CALCULO I

Cargado por

dftreciclamos
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
23 vistas10 páginas

Aporte Semana 5

APORTE 2 SEMANA 5 CALCULO I

Cargado por

dftreciclamos
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd

lOMoARcPSD|42155886

Aporte semana 5

Cálculo I (Politécnico Grancolombiano)

Escanea para abrir en Studocu

Studocu no está patrocinado ni avalado por ningún colegio o universidad.


Descargado por DFT RECICLAMOS ([email protected])
lOMoARcPSD|42155886

Hola Buenas tardes Compañeros y tutora


Aporte colaborativo semana 5

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 cárguela dentro del foro, junto con todos los valores del
cuadro.

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

Ciuda
nombre ciudad Longitud Latitud
d
1 Yucon Canada -ρ -134,13 σ 63,51
2 Manitova Canada -β -98,76 ϴ 51,14
5 Senkaya Turquia α 42,32 δ 40,62
4 Provincia de kislorda σ 63,52 Φ+ λ 45,86
3 mianmar β 98,76 λ 21,16

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

# 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

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

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.13,63.51)

manitoba <- c(-98.76,51.14)

senkaya <- c(42.32,40.62)

provincia_kyzylorda <- c(63.52,45.86)

Myanmar <- c(98.76,21.16)

# Data frame

data <- rbind(Yukon, manitoba, senkaya, provincia_kyzylorda,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

Descargado por DFT RECICLAMOS ([email protected])


lOMoARcPSD|42155886

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 manitoba

inter <- gcIntermediate(manitoba, Yukon, n=50, addStartEnd=TRUE, breakAtDateLine=F)

# Show this connection

lines(inter, col="slateblue", lwd=2)

# Between manitoba and senkaya

inter <- gcIntermediate(senkaya,manitoba, n=50, addStartEnd=TRUE, breakAtDateLine=F)


lines(inter, col="slateblue", lwd=2)

# Between senkaya and provincia_kyzylorda

inter <- gcIntermediate(provincia_kyzylorda, senkaya, n=50, addStartEnd=TRUE,


breakAtDateLine=F)

lines(inter, col="slateblue", lwd=2)

Descargado por DFT RECICLAMOS ([email protected])

También podría gustarte