TALLER #6
Sheyla Aguiar, Rene Almeida, Pedro Hinojosa y Melissa Mina
2023-06-18
Ejercicio 1: Considerando la siguiente matriz
1 2 3
2 4 6
𝐴1 = ( )
3 6 9
4 8 12
la digitación de las entradas de la matriz A en RStudio es:
A1 <- c(1,2,3,4,2,4,6,8,3,6,9,12)
dim(A1) <- c(4,3)
A1
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 2 4 6
## [3,] 3 6 9
## [4,] 4 8 12
Ejercicio 2: Introducir la matriz identidad de tamaño 4x4 en RStudio (sin usar un vector
de 16 valores)
1 0 0 0
0 1 0 0
𝐼1 = ( )
0 0 1 0
0 0 0 0
Id=diag(1,4,4)
Id
## [,1] [,2] [,3] [,4]
## [1,] 1 0 0 0
## [2,] 0 1 0 0
## [3,] 0 0 1 0
## [4,] 0 0 0 1
Ejercicio 3: Encontrar la matriz inversa de L, donde L se define como:
1 2 −4
𝐿1 = (−1 −1 5 )
2 7 −3
L1 <- matrix(c(1,-1,2,2,-1,7,-4,5,-3),3,3)
L1
## [,1] [,2] [,3]
## [1,] 1 2 -4
## [2,] -1 -1 5
## [3,] 2 7 -3
library(matlib)
## Warning: package 'matlib' was built under R version 4.2.3
solve(L1)
## [,1] [,2] [,3]
## [1,] -16.0 -11.0 3.0
## [2,] 3.5 2.5 -0.5
## [3,] -2.5 -1.5 0.5
Ejercicio 4: Suponga que se quiere ingresar una matriz con muchas entradas como la
matriz P que se presenta a continuación.
1 2 3 0 2
2 4 6 0 3
3 6 9 0 5
4 8 12 0 7
𝐿1 = 5 10 15 5 11
6 12 18 5 13
7 14 21 5 17
8 16 24 5 19
(9 18 27 5 23)
library(readxl)
## Warning: package 'readxl' was built under R version 4.2.3
[Link]()
## [1] "C:\\Users\\PatoJavier\\OneDrive - Universidad Central del
Ecuador\\TERCER SEMESTRE\\PROGRAMACION\\Taller 6\\Grupo 3_Taller [Link]"
matriz <- "C:\\Users\\PatoJavier\\Downloads\\[Link]"
mat_exc <- [Link](matriz)
p1 <- [Link](mat_exc)
p1
## X1 X2 X3 X0 X2.1
## [1,] 2 4 6 0 3
## [2,] 3 6 9 0 5
## [3,] 4 8 12 0 11
## [4,] 5 10 15 5 11
## [5,] 6 12 18 5 13
## [6,] 7 14 21 5 17
## [7,] 8 16 24 5 19
## [8,] 9 18 27 5 23
Ejercicio 5: Resolver el siguiente sistema de ecuaciones usando R:
Analice el siguiente sistema de ecuación lineal.
{ x+5y=7
{-2x-7y=-5
A2 <- matrix(c(1,-2,5,-7), ncol = 2, nrow = 2)
a <- c(7,-5)
library(matlib)
Solve(A2,a, verbose = TRUE, fractions = TRUE)
##
## Initial matrix:
## [,1] [,2] [,3]
## [1,] 1 5 7
## [2,] -2 -7 -5
##
## row: 1
##
## exchange rows 1 and 2
## [,1] [,2] [,3]
## [1,] -2 -7 -5
## [2,] 1 5 7
##
## multiply row 1 by -1/2
## [,1] [,2] [,3]
## [1,] 1 7/2 5/2
## [2,] 1 5 7
##
## subtract row 1 from row 2
## [,1] [,2] [,3]
## [1,] 1 7/2 5/2
## [2,] 0 3/2 9/2
##
## row: 2
##
## multiply row 2 by 2/3
## [,1] [,2] [,3]
## [1,] 1 7/2 5/2
## [2,] 0 1 3
##
## multiply row 2 by 7/2 and subtract from row 1
## [,1] [,2] [,3]
## [1,] 1 0 -8
## [2,] 0 1 3
## x1 = -8
## x2 = 3
Ejercicio 6: Realice el determinate de la siguiente matriz, la solución manual se adjunta,
usted debe realizarlo por R, puede usar la funcion det y comprobar los resultados.
1 4 9
𝐴3 = (7 2 5)
6 8 3
A3 <- matrix(c(1,7,6,4,2,8,9,5,3), ncol = 3, byrow = TRUE)
A3
## [,1] [,2] [,3]
## [1,] 1 7 6
## [2,] 4 2 8
## [3,] 9 5 3
DET =(minor(A3,1,1)-minor(A3,1,2)+2*minor(A3,1,3))
det(A3)
## [1] 398
Ejercicio 7: Realizar en R la transpuesta de la matriz propuesta a continuación:
1 2 3
𝐴4 = (4 5 6)
7 8 9
1 4 7
𝑇
𝐴 = (2 5 8)
3 6 9
A4 <- matrix(c(1,4,7,2,5,8,3,6,9),3,3)
A4
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 4 5 6
## [3,] 7 8 9
AT<- t(A4)
AT
## [,1] [,2] [,3]
## [1,] 1 4 7
## [2,] 2 5 8
## [3,] 3 6 9