clc format rat a=input('escribe una matriz de 3*3 aumentada: ') fila1=[a(1,1)./a(1,1),a(1,2)./a(1,1),a(1,3)./a(1,1),a(1,4)./a(1,1),a(1,5) ./a(1,1),a(1,6)./a(1,1)]; a=[fila1;a(2,:);a(3,:)] a(2,2)=(a(2,2))-a(2,1).*a(1,2); a(2,3)=(a(2,3))-a(2,1).*a(1,3); a(2,4)=(a(2,4))-a(2,1).*a(1,4); a(2,5)=(a(2,5))-a(2,1).*a(1,5); a(2,6)=(a(2,6))-a(2,1).*a(1,6); fila2=[0,a(2,2),a(2,3),a(2,4),a(2,5),a(2,6)]; a(3,2)=(a(3,2))-a(3,1).*a(1,2); a(3,3)=(a(3,3))-a(3,1).*a(1,3); a(3,4)=(a(3,4))-a(3,1).*a(1,4); a(3,5)=(a(3,5))-a(3,1).*a(1,5); a(3,6)=(a(3,6))-a(3,1).*a(1,6); fila3=[0,a(3,2),a(3,3),a(3,4),a(3,5),a(3,6)]; a=[fila1;fila2;fila3] fila2= [0,a(2,2)./a(2,2),a(2,3)./a(2,2),a(2,4)./a(2,2),a(2,5)./a(2,2),a(2,6)./a( 2,2)]; a=[fila1;fila2;fila3] a(1,3)=(a(1,3))-a(1,2).*a(2,3); a(1,4)=(a(1,4))-a(1,2).*a(2,4); a(1,5)=(a(1,5))-a(1,2).*a(2,5); a(1,6)=(a(1,6))-a(1,2).*a(2,6); fila1=[1,0,a(1,3),a(1,4),a(1,5),a(1,6)]; a(3,3)=(a(3,3))-a(3,2).*a(2,3); a(3,4)=(a(3,4))-a(3,2).*a(2,4); a(3,5)=(a(3,5))-a(3,2).*a(2,5); a(3,6)=(a(3,6))-a(3,2).*a(2,6); fila3=[0,0,a(3,3),a(3,4),a(3,5),a(3,6)]; a=[fila1;fila2;fila3] fila3= [0,0,a(3,3)./a(3,3),a(3,4)./a(3,3),a(3,5)./a(3,3),a(3,6)./a(3,3)]; a=[fila1;fila2;fila3] a(1,4)=(a(1,4))-a(1,3).*a(3,4); a(1,5)=(a(1,5))-a(1,3).*a(3,5); a(1,6)=(a(1,6))-a(1,3).*a(3,6); fila1=[1,0,0,a(1,4),a(1,5),a(1,6)]; a(2,4)=(a(2,4))-a(2,3).*a(3,4); a(2,5)=(a(2,5))-a(2,3).*a(3,5); a(2,6)=(a(2,6))-a(2,3).*a(3,6); fila2=[0,1,0,a(2,4),a(2,5),a(2,6)]; a=[fila1;fila2;fila3]
