UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

SISTEMAS DE INFORMACIÓN GEOGRÁFICA

Autores

-Rene Avila
-Michael Chacaguasay
-Johann Tul
-Bryan Venegas

PROBLEMA 1

1._CALCULA LOS VALORES NUMERICOS APROXIMADOS DE

(O.30.15)/(0.30.15+0.20.8+0.50.12)

SOL:0.1698113

num1 <- 0.3*0.15
num2 <- 0.3*0.15
num3 <- 0.2*0.8
num4 <- 0.5*0.12
total <- num1/(num2+num3+num4)
total
## [1] 0.1698113

2._CALCULA LOS VALORES NUMERICOS APROXIMADOS DE (56/6!)e-5

SOL:0.1462228

num5 <- (5^6)/(factorial(6))
num6 <- exp(-5)
total2 <- num5*num6
total2
## [1] 0.1462228

PROBLEMA 2

REALIZA LAS SIGUIENTES SUMAS:

1._1+2+3+???+10001+2+3+???+1000

SOL.: 500500500500

vector1 <- (1000*(1000+1))/2
vector1
## [1] 500500
vector2 <- rep(vector1, time=2)
vector2
## [1] 500500 500500

2._1+2+4+8+16+???+1024

SOL.: 20472047

vector4 <- 1
vector5 <- 2
for(i in 1:10)
{
  vector4<-vector4+(vector5^i)
}
vector6 <- rep(vector4, time=2)
vector6
## [1] 2047 2047

Problema 3

EL VECTOR ALUMNOS REPRESENTA LOS NOMBRES DE UNA SERIE DE ALUMNOS

CREAR EL VECTOR ALUMNOS CON 20 NOMBRES

CREAR EL VECTOR ALUMNOS CON 20 NOMBRES

1._VISUALÍZALO EN PANTALLA

nombres <- c("PAULA","PABLO","DILAN","DAVID","PEDRO","SOFIA","SARA","MIGUEL",
             "CARLA","DANIELA","LUIS","JONATHAN","PAMELA","CARLOS","FATIMA",
             "ALEJANDRO","SEBASTIAN","MARIA","JUAN","RAQUEL")
nombres
##  [1] "PAULA"     "PABLO"     "DILAN"     "DAVID"     "PEDRO"     "SOFIA"    
##  [7] "SARA"      "MIGUEL"    "CARLA"     "DANIELA"   "LUIS"      "JONATHAN" 
## [13] "PAMELA"    "CARLOS"    "FATIMA"    "ALEJANDRO" "SEBASTIAN" "MARIA"    
## [19] "JUAN"      "RAQUEL"

2._¿CUÁNTAS COMPONENTES TIENE EL VECTOR ALUMNOS?

length(nombres)
## [1] 20

3._¿EN QUÉ POSICIONES DEL VECTOR ALUMNOS ESTÁ LA LETRA ‘A’?

which(nombres=="ALEJANDRO",arr.ind=TRUE )
## [1] 16

Problema 4

EL VECTOR NOTAS REPRESENTA LA NOTA DE UN EXAMEN, DE LOS MISMOS ALUMNOS CUYO

LISTA SE HA GUARDADO EN EL VECTOR ALUMNOS Y EN EL MISMO ORDEN.

1._VISUALÍZALO EN PANTALLA

nexamen <- c(4,6,3,8,10,7,4,8,9,10,10,5,8,7,4,1,2,5,8,9)
nexamen
##  [1]  4  6  3  8 10  7  4  8  9 10 10  5  8  7  4  1  2  5  8  9

2._¿CUÁNTAS COMPONENTES TIENE?

length(nexamen)
## [1] 20

3._¿CUÁNTO SUMAN TODAS LAS NOTAS?

sum(nexamen)
## [1] 128

4._¿CUÁL ES LA MEDIA ARITMÉTICA DE TODAS LAS NOTAS?

mean(nexamen)
## [1] 6.4

5._¿EN QUÉ POSICIONES ESTÁN LAS NOTAS MAYORES DE 7?

which(nexamen >=7)
##  [1]  4  5  6  8  9 10 11 13 14 19 20

6._VISUALIZA LAS NOTAS ORDENADAS DE MENOR A MAYOR

sort(nexamen)
##  [1]  1  2  3  4  4  4  5  5  6  7  7  8  8  8  8  9  9 10 10 10

7._VISUALIZA LAS NOTAS ORDENADAS DE MAYOR A MENOR

sort(nexamen,decreasing = T)
##  [1] 10 10 10  9  9  8  8  8  8  7  7  6  5  5  4  4  4  3  2  1

8._¿CUÁL HA SIDO LA NOTA MÁXIMA?

max(nexamen)
## [1] 10

9._¿EN QUÉ POSICIÓN DEL VECTOR ESTÁ ESA NOTA MÁXIMA?

maxi <- max(nexamen)
maxi
## [1] 10
which(nexamen %in% c(maxi))
## [1]  5 10 11

Problema 5

A PARTIR DE LOS VECTORES ALUMNOS Y NOTAS DEFINIDOS:

1._VISUALIZA LAS NOTAS DE LOS 10 PRIMEROS ALUMNOS

nexamen[1:10]
##  [1]  4  6  3  8 10  7  4  8  9 10

2._SUMA LAS NOTAS DE LOS 10 PRIMEROS ALUMNOS DEL VECTOR

sum(nexamen[1:10])
## [1] 69

3._¿CUÁNTOS ALUMNOS HAY EN TOTAL?

length(nombres)
## [1] 20

4._SUMA LAS NOTAS DE LOS ALUMNOS

sum(nexamen)
## [1] 128

5._¿CUÁNTOS ALUMNOS HAN APROBADO?

posición <- which(nexamen>=7)
posición
##  [1]  4  5  6  8  9 10 11 13 14 19 20
totalp <- length(posición)
totalp
## [1] 11

6._¿QUÉ PORCENTAJE DE ALUMNOS HAN APROBADO?

porcentaje<-(totalp*100)/length(nombres)
porcentaje
## [1] 55

7._¿CUÁLES HAN SIDO LAS NOTAS MÁXIMA Y MÍNIMA?

max(nexamen)
## [1] 10
min(nexamen)
## [1] 1

8._¿DE QUÉ ALUMNOS SON LA MÁXIMA Y MÍNIMA NOTAS?

m <- data.frame(nombres = c("PAULA","PABLO","DILAN","DAVID","PEDRO","SOFIA","SARA","MIGUEL",
                            "CARLA","DANIELA","LUIS","JONATHAN","PAMELA","CARLOS","FATIMA",
                            "ALEJANDRO","SEBASTIAN","MARIA","JUAN","RAQUEL"), nexamen = c(4,6,3,8,10,7,4,8,9,10,10,5,8,7,4,1,2,5,8,9) )
m
##      nombres nexamen
## 1      PAULA       4
## 2      PABLO       6
## 3      DILAN       3
## 4      DAVID       8
## 5      PEDRO      10
## 6      SOFIA       7
## 7       SARA       4
## 8     MIGUEL       8
## 9      CARLA       9
## 10   DANIELA      10
## 11      LUIS      10
## 12  JONATHAN       5
## 13    PAMELA       8
## 14    CARLOS       7
## 15    FATIMA       4
## 16 ALEJANDRO       1
## 17 SEBASTIAN       2
## 18     MARIA       5
## 19      JUAN       8
## 20    RAQUEL       9
which(nexamen ==10)
## [1]  5 10 11
m[10,]
##    nombres nexamen
## 10 DANIELA      10

9._NOTA MEDIA DE ALUMNOS, TENIENDO EN CUENTA SÓLO A LOS QUE HAN APROBADO.

aprobados <- c(8,10,7,8,9,10,10,8,7,8,9)
aprobados
##  [1]  8 10  7  8  9 10 10  8  7  8  9
mean(aprobados)
## [1] 8.545455