%MATRIZ INVERSA PASO A PASO ren = input input('Ta ('Tama ma� o n: '); reiniciar=ren; =!; acu="; #=ren$; &ec=ren; mo=ren$; a=; =; i*a=; i=; &=; e=; au=ren$; in=; co*umna=!; repeticione+="; repeticione+!="; *im=ren; &ar=; % aria*e+ para +o*ucionar pro*ema+ con e* cero tempora*="; menor=; np=ren; parato&=ren; increm=; parcon="; tempora*i&en="; % para ,enerar *a matrior r = : ren or c = : ren + = .'/ato (' num!+tr(r) '0 ' num!+tr(c) '): '1; m(r0 c) = input(+); en& en& m % para ,enerar *a matri- i&enti&a& or r = : ren or c = : ren i(r==c) n(r0 c) =; e*+e n(r0 c) ="; en& en& en& n % para ,enerar *a matri- aumenta&a o=.m n1; o
% para ca*cu*ar *a &eterminante print('&eterminante: %23!4n'0&et(m)) % PRO5ESO PARA 5AM6IAR 7I8AS 9 EVITAR IN/ETERMINA5IONES i(&et(m)=")
>(r?parcon)>>(c?parcon)) ren=np; en& i((r==c)>>(m(r0c)==")) or in&ar=: np tempora*=m(r0:); m(r0:)=m(ren0:); m(ren0:)=tempora*;
tempora*i&en=n(r0:); n(r0:)=n(ren0:); n(ren0:)=tempora*i&en; en& o=.m n1; o
en& i((r==c)>>(rparcon)>>(cparcon)) ren=ren@; en& en& en& ren=np$increm; increm=increm@; menor=menor@; parcon=parcon@; en& ren=reiniciar; % ASTA ABCI PARA 5AM6IAR 7I8AS o=.m n1; o % PRO5ESO PARA 5ONSEDCIR 8A MITA/ /E 8A 7CN5ION INVERSA &i+p('Proce+o para &ia,ona* inerior')
i(r==i*a) n(i*a0:)=n(i*a0:)m(i*a0i*a); m(i*a0:)=m(i*a0:)m(i*a0i*a); en& i(r==) n(0:)=n(0:)$(n(a0:)Fm(0i*a)); m(0:)=m(0:)$(m(a0:)Fm(0i*a)); en&
repeticione+=repeticione+@; en& i(r==i)
=i; en&
o=.m n1; o =@; en& i (r==ren>>c==ren) a=a@; =@; i*a=i*a@; =@; i=i@;
en&
en& ren=reiniciar; % PRO5ESO PARA 5OMP8ETAR 8A MATRIZ INVERSA &i+p('para &ia,ona* +uperior')