Question

Calcular la inversa de la siguiente matriz: A=⎡⎣⎢⎢−1033112512−2⎤⎦⎥⎥.

Answer 1

aqui esta la respuestaaaaaaaaa

Answer 2

A continuación se muestra algoritmo para calcular la inversa de cualquier matriz 3x3 siempre que tenga una determinante distinta de cero. Se adjunta imagen de la respuesta a matriz dada.

Algoritmo matrizinversa

• //Definir  variables

   Definir f, fil, mtriz, Dterminanteg, dterminante, trnspuesta como entero

   Definir invrsa Como Real

Dimension mtriz[3,3];

Dimension dterminante[3,3];

Dimension trnspuesta[3,3];

Dimension invrsa[3,3];

fil <- 3

•    //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]," ",mtriz[f,3]

   FinPara  

Escribir " ";

• //Calcular determinante de la matriz inicial

Posicion1=mtriz[1,1]*mtriz[2,2]*mtriz[3,3];

Posicion2=mtriz[2,1]*mtriz[3,2]*mtriz[1,3];

Posicion3=mtriz[3,1]*mtriz[1,2]*mtriz[2,3];

Posicion4=mtriz[1,3]*mtriz[2,2]*mtriz[3,1];

Posicion5=mtriz[2,3]*mtriz[3,2]*mtriz[1,1];

Posicion6=mtriz[3,3]*mtriz[1,2]*mtriz[2,1];

Dterminanteg=((Posicion1)+(Posicion2)+(Posicion3))- ((Posicion4)+(Posicion5)+(Posicion6));

Escribir "La Determinante es:" Dterminanteg  

si Dterminanteg <> 0 Entonces

•  //Calcular matriz adjunta

 

 // Calcular determinante 1,1

 Posicion1=mtriz[2,2]*mtriz[3,3];

 Posicion2=mtriz[3,2]*mtriz[2,3];

 dterminante(1,1)=(Posicion1)-(Posicion2);

 

 // Calcular determinante 1,2

 Posicion1=mtriz[2,1]*mtriz[3,3];

 Posicion2=mtriz[3,1]*mtriz[2,3];

 dterminante(1,2)=(Posicion2)-(Posicion1);

 

 // Calcular determinante 1,3

 Posicion1=mtriz[2,1]*mtriz[3,2];

 Posicion2=mtriz[3,1]*mtriz[2,2];

 si abs(Posicion1) > abs(Posicion2) Entonces

  dterminante(1,3)=(Posicion1)-(Posicion2);

 SiNo

  dterminante(1,3)=(Posicion2)-(Posicion1);

 

 FinSi

 

 // Calcular determinante 2,1

 Posicion1=mtriz[1,2]*mtriz[3,3];

 Posicion2=mtriz[3,2]*mtriz[1,3];

 dterminante(2,1)=(Posicion2)-(Posicion1);

 

 // Calcular determinante 2,2

 Posicion1=mtriz[1,1]*mtriz[3,3];

 Posicion2=mtriz[3,1]*mtriz[1,3];

 si abs(Posicion1) > abs(Posicion2) Entonces

  dterminante(2,2)=(Posicion1)-(Posicion2);

 SiNo

  dterminante(2,2)=(Posicion2)-(Posicion1);

 

 FinSi

 // Calcular determinante 2,3

 Posicion1=mtriz[1,1]*mtriz[3,2];

 Posicion2=mtriz[3,1]*mtriz[1,2];

 dterminante(2,3)=(Posicion2)-(Posicion1);

 

 // Calcular determinante 3,1

 Posicion1=mtriz[1,2]*mtriz[2,3];

 Posicion2=mtriz[2,2]*mtriz[1,3];

 si abs(Posicion1) > abs(Posicion2) Entonces

  dterminante(3,1)=(Posicion1)-(Posicion2);

 SiNo

  dterminante(3,1)=(Posicion2)-(Posicion1);

 

 FinSi

 

 // Calcular determinante 3,2

 Posicion1=mtriz[1,1]*mtriz[2,3];

 Posicion2=mtriz[2,1]*mtriz[1,3];

 dterminante(3,2)=(Posicion2)-(Posicion1);

 

 // Calcular determinante 3,3

 Posicion1=mtriz[1,1]*mtriz[2,2];

 Posicion2=mtriz[2,1]*mtriz[1,2];

 dterminante(3,3)=(Posicion1)-(Posicion2);

 

•  //Imprimir matriz adjunta

 

 Escribir "MATRIZ ADJUNTA";

 Escribir "================";

 Para f <- 1 hasta fil con paso 1 hacer

  Escribir dterminante[f,1]," ",dterminante[f,2]," ",dterminante[f,3]

 FinPara  

 

•  // Calcular y mostrar matriz transpuesta

 Para f<-1 Hasta fil Hacer

  Para col<-1 Hasta 3 Hacer

   trnspuesta[col,f]<-dterminante[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

sino

 Escribir "La matriz no tiene inversa"

FinSi

 

FinAlgoritmo

Para saber más acerca de algoritmo de matriz inversa consulte: https://brainly.lat/tarea/13071402

#SPJ5