INVERSA DE UNA MATRIZ

Prévia do material em texto

FLUJOGRAMA INVERSA MATRIZ
Inversa de una Matriz
Ingresar los elementos A(i,j)
Leer la dimension "n"
Para i=1 hasta n
Para j=1 hasta n
Crear la Matriz "A"
j <> k
A(i,j) = A(i,j) - A(i,k)*A(k,j)*Pv
i <> k
si
A(u,k) = - Pv*A(u,k)
A(k,k) = Pv
Pv = 1/A(k,k)
no
Para i = 1 hasta n
si
Para j = 1 hasta n
Para u = 1 hasta n
A(k,u) = Pv*A(k,u)
Para u = 1 hasta n
Para k = 1 hasta n
C
FIN
A
j <> n
mensaje = mensaje & vbTab
Para i = 1 hasta n
Para j = 1 hasta n
mensaje = ""
mensaje = mensaje & Format(A(i, j), "0.00")
no
si
no
mensaje = mensaje & vbCrLf
mensaje = mensaje & vbCrLf
MsgBox "Matriz Inversa" & vbCrLf & vbCrLf & mensaje
A
C
B
B
CALCULO DE LA INVERSA
		Escribenos a : sentimiento.excel@gmail.com Creado por: Jemg
													1	-2
													3	5
CALCULO DE LA INVERSA DE UNA MATRIZ
Hoja1
CALCULO DE LA INVERSA DE UNA MATRIZ