Calcular Tr(A−1) sabiendo que matriz A esta definida por: A=⎡⎣⎢−472−23−51−24⎤⎦⎥.
Respuestas a la pregunta
Respuesta:
-14/15
Explicación:
esa es
Para calcular la transpuesta de la inversa de una matriz A hay que realizar varios cálculos entre ellos, calcular la determinante, la matriz adjunta de A, la transpuesta de la adjunta y dividir cada elemento de ésta por la determinante, y a partir de aquí volver a calcular la transpuesta. Se adjunta imagen con la respuesta y se muestra a continuación el algoritmo.
Algoritmo TranspuestaMatrizInversa2x2
- //Definir variables
Definir f, fil, mtriz, Dterminanteg, psicion, trnspuesta como entero
Definir invrsa Como Real
Dimension mtriz[2,2];
Dimension psicion[2,2];
Dimension trnspuesta[2,2];
Dimension trnspuesta2[2,2];
Dimension invrsa[2,2];
fil <- 2
- //Cargar la matriz
Escribir "CARGAR MATRIZ"
Para f<-1 Hasta fil Hacer
Para col<-1 Hasta fil Hacer
Escribir "elemento(",f,",",col,"):" Sin Saltar
Leer mtriz[f,col];
Fin Para
FinPara
- //Imprimir matriz inicial
Escribir "MATRIZ INICIAL";
Escribir "================";
Para f <- 1 hasta fil con paso 1 hacer
Escribir mtriz[f,1]," ",mtriz[f,2]
FinPara
Escribir " ";
- //Calcular determinante de la matriz inicial
e1=mtriz[1,1]*mtriz[2,2]
e2=mtriz[2,1]*mtriz[1,2]
Dterminanteg=e1-e2
Escribir "La Determinante es:" Dterminanteg
si Dterminanteg <> 0 Entonces
- //Calcular e imprimir matriz adjunta
psicion(1,1)=mtriz[2,2]
psicion(1,2)=mtriz[2,1]*(-1)
psicion(2,1)=mtriz[1,2]*(-1)
psicion(2,2)=mtriz[1,1]
Escribir "MATRIZ ADJUNTA";
Escribir "================";
Para f <- 1 hasta fil hacer
Escribir psicion[f,1]," ",psicion[f,2]
FinPara
- // Calcular y mostrar matriz transpuesta de la adjunta
Para f<-1 Hasta fil Hacer
Para col<-1 Hasta fil Hacer
trnspuesta[col,f]<-psicion[f,col]
FinPara
FinPara
Escribir ''
Escribir 'MATRIZ ANDJUTA TRANSPUESTA'
Escribir "================";
Para col<-1 Hasta fil Hacer
Para f<-1 Hasta fil Hacer
Escribir trnspuesta[col,f],' ' Sin Saltar
FinPara
Escribir ''
FinPara
- // Calcular y mostrar matriz inversa
Para col<-1 Hasta fil Hacer
Para f<-1 Hasta fil Hacer
invrsa[f,col]<-trnspuesta[f,col]/Dterminanteg
FinPara
FinPara
Escribir ''
Escribir 'MATRIZ INVERSA'
Escribir "================";
Para col<-1 Hasta fil Hacer
Para f<-1 Hasta fil Hacer
Escribir invrsa[col,f],' ' Sin Saltar
FinPara
Escribir ''
FinPara
- // Calcular y mostrar matriz transpuesta de la inversa
Para f<-1 Hasta fil Hacer
Para col<-1 Hasta fil Hacer
trnspuesta2[col,f]<-invrsa[f,col]
FinPara
FinPara
Escribir ''
Escribir 'MATRIZ TRANSPUESTA DE LA INVERSA (Tr(A^-1)'
Escribir "================";
Para col<-1 Hasta fil Hacer
Para f<-1 Hasta fil Hacer
Escribir trnspuesta2[col,f],' ' Sin Saltar
FinPara
Escribir ''
FinPara
sino
Escribir "La matriz no tiene inversa"
FinSi
FinAlgoritmo
Para saber más acerca de algoritmo de matriz transpuesta consulte: https://brainly.lat/tarea/10903025
#SPJ5