ALGORITMO GAUSS JORDAN SIN PIVOTE Gauss Jordan sin pivote clc disp('Metodo disp('Metodo de Gauss Jorda'!" Jorda' !" #iput('I$rese #iput('I$rese el orde de la %atri& # ' !" A#iput('i$rese A#iput('i$rese la %atri& de coeicietes A# ' !" #iput('i$rese #iput('i$rese el )ector de ter%ios idepetietes # ' !" or *#+, or *#+, or i#*-+, or i#*-+, A(i.*!/A(*.*!" A(i.*!#0" or 1#*-+, or 1#*-+, A(i.1!#A(i.1!2&3A(*.1!" ed (i!#(i!2&3(*!" ed ed disp('Por disp('Por el %etodo de Gauss Jorda la %atri& es la si$uiete,' !" disp(A!" 4(!#(!/A(.!" or p#2+,2+,+ or p#2+,2+,+ su%#0" or t#p-+, or t#p-+, su%#su%-A(p.t!34(t!" ed 4(p!#((p!2su%!/A(p.p!" ed disp('Las disp('Las solucioes al siste%a i$resado so ' !" disp(4!"
I$rese el orde de la %atri& # 5 i$rese la %atri& de coeicietes A# 67.+.2+"25.2+.7"2 7.+.7"8 i$rese el )ector de ter%ios idepetietes # 69.2++.258 Por el %etodo de Gauss Jorda la %atri& es la si$uiete, 7:0000 +:0000 2+:0000 0 0:;000 0:;000 0 0 2+:0000 Las solucioes al siste%a i$resado so 7 5 2+
ALGORITMO GAUSS JORDAN #P(r!" P(r!#P(d!" P(d!#>" disp('Matri& de Gauss'! or i#r-+, A(P(i!.r!/A(P(r!.r!" A(P(i!.r!#0" or 1#r-+, A(P(i!.1!#A(P(i!.1!2&3A(P(r!.1!" ed (P(i!!#(P(i!!2&3(P(r!!" ed T(r!#0" ed disp('La %atri& >ueda e4presada, ' !" disp(A!" disp('La %atri& traspuesta de coeicietes >ueda de la or%a, ' !" disp(!" disp('El )ector per%utacio es de la or%a ' !" disp(P!" disp('?allado las solucioes'! 4(P(!!#(P(!!/A(P(!.!" or p#2+,2+,+ su%#0" or t#p-+, su%#su%-A(P(p!.t!34(P(t!!" ed 4(P(p!!#((P(p!!2su%!/A(P(p!.p!" ed disp('Las solucioes (e el orde del )ector per%utacio! al siste%a i$resado so, '!" disp(4!" Metodo de Gauss Jorda co pi)ote i$rese la %atri& de coeicietes A# 6+:@9.5:0+.2:99":B5.2+:0B.2 7:7@"25:5C.C:9+.2:@98
i$rese el )ector de ter%ios idepetietes # 62@:@0.2B:5B.5:C;8 Los %a4i%os )alores de cada ila so, :9900 :B500 C:9+00 Reordea el )ector per%utacio de %aera adecuada Per%uta el )ector per%utacio Matri& de Gauss Reordea el )ector per%utacio de %aera adecuada Per%uta el )ector per%utacio Matri& de Gauss La %atri& >ueda e4presada, 0 0 2+:;@05 :B500 2+:0B00 27:7@00 0 C:055C 2B:7+ La %atri& traspuesta de coeicietes >ueda de la or%a, 2:C9@B 2B:5B00 20:@0B@ El )ector per%utacio es de la or%a 7 5 + ?allado las solucioes Las solucioes (e el orde del )ector per%utacio! al siste%a i$resado so, 5:+@B7 0:B97 7:+9B@
ALGORITMO NEWTON SEGUNDO ORDEN clc disp('Pro$ra%a para calcular races por el %todo de NeFto de 7 orde'! p#iput('Itroduce la precisiH e porceta1e, ' !" #iput('I$rese el )alor iicial, ' !" Er#+00" F=ile (Er#p! K0#720:;" K+#73" K7#7" #-(+/((K7/73K+!2(K+/K0!!!" Er#(as((2!/!!3+00" #" ed prit('La ra& de 0:; es ' . !