Entrega Final

Entrega final trabajo colaborativo
Carlos Alirio Ballesteros Torres
Presentado por:
Andrés David Carriño Martínez
Alfonzo Serna
Jerson Eduardo Cuesta Rodríguez
Nicolas Aya González,
Sebastián Mauricio Puentes.
Institución Universitaria Politécnico Gran Colombiano

Calculo I grupo B01 subgrupo 25
Junio 2022
Introducción
La trigonometría es una de las ramas de las matemáticas que están presente en la vida
cotidiana, pues esta nos ayuda a resolver diversas situaciones. El teorema del Seno, teorema
del Coseno y ley de Harvensine, permiten posicionarnos y geolocalizarnos mediante fórmulas.
Estas leyes y teoremas son fundamentales en el entorno económico para el tránsito y
movimientos de transportes y cargas. Este taller nos da destreza de generalizar las fórmulas
para calcular los vectores de movimientos y distancias. Con esto logramos afianzarnos en
nuestros conocimientos para el desarrollo de los ejercicios propuestos.
Objetivo
 Identificar los teoremas y leyes aplicadas en el desarrollo de esta actividad mediante

los conceptos y formulas, con la finalidad de resolver los problemas propuestos.
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 literal a de
la actividad 2
Fig 1. Ciudades propuestas
Ciudad Latitud Longitud

Ciudad 3 40.64 42.32
Ciudad 4 45.86 63.52
Ciudad 5 21.16 98.72
En la figura 2 reemplazamos los valores de los diferentes ángulos estos que encontramos
después de tomar las instrucciones del literal a de la semana 4, a continuación, detallamos los
cálculos que se hicieron para lograr obtener los valores de lo diferentes ángulos que nos
arrojarán las latitudes y longitudes de las ciudades que se eligieron de igual forma, era
necesario, usar las instrucciones del literal a para encontrar los demás valores necesarios de
latitud y longitud
Acá veremos cómo se encontraron los ángulos del triángulo superior de la gráfica, se usó la
ley de cosenos pues es la más apropiada en este caso por la información que tenemos
a2= b2 + c2 – 2bcCosA
b2= a2 + c2 – 2acCosB
c2= a2 + b2 – 2acCosC
Despejamos la fórmula para hallar el ángulo A ( )
a2= b2 + c2 – 2bcCosA
Cos-1 (a2 -b2 + c2 /– 2bc)=A A= Cos-1(a2 -b2 + c2 /– 2bc)
A= Cos-1(413.52 -240.682 + 207.912 /– 2*240.68*207.91)=134.16
=134.16
Despejamos la fórmula para hallar el ángulo B ( )
b2= a2 + c2 – 2acCosB
Cos-1 (b2 -a2 -c2 /– 2ac)=B A= Cos-1 (b2 -a2 -c2 /– 2ac)
B= Cos-1(240.682 -413.352 -207.912 /– 2*413.35*207.91)
=24.7
=180-24.70-134.16=21.16
=21.16
= = 2*21.16=42.32
= 21.16
=(3*24.7-(21.16/2))=63.52
=63.52
=b/SenB=c/SenC = (Sen63.52*207.91/238.99)=0.78 Cos-1(0.78)=C C=51.14
=51.14
= 51.14+ = (134.15/2) + 24.7= 40.64
=40.64
Después de reemplazar en la tabla los ángulos por los valores de estos procedemos a,
mediante la ley de Harvensine, hallar las distancias entre las ciudades 3-4-5 y así formar el
triángulo para después hallar los ángulos
Harvensine
(Guerrero, 2012)
Ciudad Latitud Longitud

Ciudad 3 40.64 42.32
Ciudad 4 45.86 63.52
Ciudad 5 21.16 98.72
Acá repetimos el cuadro con los ángulos como latitudes y longitudes según el cuadro de las
instrucciones dadas.
En la figura siguiente vemos el triángulo formado por las distancias que encontramos para
cada lado lo mismo que los ángulos que encontramos mediante el mismo procedimiento que
describimos anteriormente.
Vemos el mapa de Google maps y nuestros cálculos difieren solo en 6 kilómetros para las
ciudades 3 y 4
Para el numeral d se proponen ruta de vuelo entre Paris y Metz.
La medición de Google maps es de 280 kms mientras que el cálculo es de 285 nos da una
diferencia de pocos kms respecto de la que hicimos con latitud y longitud (tomadas de Maps)
con anterioridad para lograr los cálculos
Coordenadas De Metz Latitud 49.07 y longitud 2.25
Paris Latitud 49.61 y longitud 6.1.
La distancia mediante Harvensine es de 285
Imágenes del Código R y el código editado con los diferentes ángulos que obtuvimos durante
toda la ejecución del problema
Notamos levemente al fondo de los puntos el mapamundi que genera la plataforma
Código de R editado con las coordenadas obtenidas
# 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)
Senkaya <- c(40.64,42.32)
Kysylorda <- c(45.86,63.52)

Myanmar <- c(2.35,48.85)
# Melbourne <- c(144.96,-37.81)
# Data frame
data <- rbind(Senkaya, Kysylorda, Myanmar) %>%
as.data.frame()
colnames(data) <- c("long","lat")
# Show the cities on the map
map('world',
points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)
# Load geosphere
library(geosphere)
# Background map
map('world',
# Dot for cities
points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)
# Compute the connection between Buenos Aires and Paris
inter <- gcIntermediate(Senkaya, Kysylorda, n=50, addStartEnd=TRUE,

breakAtDateLine=F)
# Show this connection
lines(inter, col="slateblue", lwd=2)
# Between Paris and Melbourne
inter <- gcIntermediate(Kysylorda, Myanmar, n=50, addStartEnd=TRUE,

breakAtDateLine=F)
lines(inter, col="slateblue", lwd=2)
# Between Medellin and Buenos Aires
#inter <- gcIntermediate(Medellin, Buenos_aires, n=50, addStartEnd=TRUE,

breakAtDateLine=F)
#lines(inter, col="slateblue", lwd=2).
Nota final-
Para el trabajo con la fórmula de Harvensine adaptamos una hoja de cálculo, automatizando
una celda para que actualice la distancia cuando se cambian los datos de latitud y longitud de
dos ciudades en otras celdas, agregamos en el foro esta hoja de cálculo (Techlandia).
Referencias
Guerrero, J. (13 de 12 de 2012). El Blog de José Guerrero. Obtenido de

https://joseguerreroa.wordpress.com/2012/11/13/distancia-entre-dos-puntos-de-la-
superficie-terrestre-mediante-la-formula-de-haversine-con-python/
Techlandia. (s.f.). Techlandia(sf). Obtenido de https://techlandia.com/13075273/como-calcular-los-

resultados-z-con-la-version-para-estudiante-spss

Entrega Final

Cargado por

Copyright:

Formatos disponibles

Entrega Final

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Entrega Final

Cargado por

Copyright:

Formatos disponibles

Entrega final trabajo colaborativo

Carlos Alirio Ballesteros Torres

Institución Universitaria Politécnico Gran Colombiano

 Identificar los teoremas y leyes aplicadas en el desarrollo de esta actividad mediante

Fig 1. Ciudades propuestas

Ciudad Latitud Longitud

Despejamos la fórmula para hallar el ángulo A ( )

Cos-1 (a2 -b2 + c2 /– 2bc)=A A= Cos-1(a2 -b2 + c2 /– 2bc)

A= Cos-1(413.52 -240.682 + 207.912 /– 2*240.68*207.91)=134.16

Despejamos la fórmula para hallar el ángulo B ( )

=b/SenB=c/SenC = (Sen63.52*207.91/238.99)=0.78 Cos-1(0.78)=C C=51.14

= 51.14+ = (134.15/2) + 24.7= 40.64

Ciudad Latitud Longitud

Coordenadas De Metz Latitud 49.07 y longitud 2.25

Paris Latitud 49.61 y longitud 6.1.

La distancia mediante Harvensine es de 285

Código de R editado con las coordenadas obtenidas

# World map is available in the maps package

col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,

# Dplyr for data wrangling and pipe function

# Cities (Longitud, Latitud)

Senkaya <- c(40.64,42.32)

Kysylorda <- c(45.86,63.52)

# Melbourne <- c(144.96,-37.81)

data <- rbind(Senkaya, Kysylorda, Myanmar) %>%

colnames(data) <- c("long","lat")

# Show the cities on the map

col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,

points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)

col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,

# Dot for cities

points(x=data$long, y=data$lat, col="slateblue", cex=3, pch=20)

# Compute the connection between Buenos Aires and Paris

inter <- gcIntermediate(Senkaya, Kysylorda, n=50, addStartEnd=TRUE,

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

# Between Paris and Melbourne

inter <- gcIntermediate(Kysylorda, Myanmar, n=50, addStartEnd=TRUE,

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

# Between Medellin and Buenos Aires

#inter <- gcIntermediate(Medellin, Buenos_aires, n=50, addStartEnd=TRUE,

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

Guerrero, J. (13 de 12 de 2012). El Blog de José Guerrero. Obtenido de

Techlandia. (s.f.). Techlandia(sf). Obtenido de https://techlandia.com/13075273/como-calcular-los-

También podría gustarte

A= Cos-1(413.52 -240.682 + 207.912 /– 2240.68207.91)=134.16