Tareas

EJERCICIO 1.GAUSS-JORDAN
clc
clear
A=[(3-i) (8+i);(4+i) (10-2i)]
b=[(6-3i);(10-i)]
I=eye(size(A))
aumentada=[A I]
R=aumentada
R(1,:)=R(1,:)/R(1,1)
R(2,:)=(R(1,:)*-R(2,1))+R(2,:)R(2,:)=R(2,:)/R(2,2)
R(1,:)=(R(2,:)*-R(1,2))+R(1,:)

DESARROLLO:

A =

3.0000 - 1.0000i 8.0000 + 1.0000i
4.0000 + 1.0000i 10.0000 - 2.0000i

b =

6.0000 - 3.0000i
10.0000 - 1.0000iI =

1 0
0 1

aumentada =
3.0000 - 1.0000i 8.0000 + 1.0000i 1.0000 0
4.0000 + 1.0000i 10.0000 - 2.0000i 0 1.0000R =
3.0000 - 1.0000i 8.0000 + 1.0000i 1.0000 0
4.0000 + 1.0000i 10.0000 - 2.0000i 0 1.0000

R =
1.00002.3000 + 1.1000i 0.3000 + 0.1000i 0
4.0000 + 1.0000i 10.0000 - 2.0000i 0 1.0000

R =
1.0000 2.3000 + 1.1000i 0.3000 + 0.1000i0
0 1.9000 - 8.7000i -1.1000 - 0.7000i 1.0000

R =
1.0000 2.3000 + 1.1000i 0.3000 + 0.1000i 0
01.0000 0.0504 - 0.1375i 0.0240 + 0.1097i

R =
1.0000 0 0.0328 + 0.3607i 0.0656 - 0.2787i
0 1.0000 0.0504 - 0.1375i0.0240 + 0.1097i

EJERCICIO.1.CRAMER
clc
clear
fprintf('\n programa para la solucion de sistema de \n');
fprintf('\n-ecuaciones con n-incognitas \n\n');
A=input('Teclea la matriz decoeficientes A:');
b=input('teclea el vector de terminos constantes b:');
detA=det(A);
for i=1:length(b)
aux=A;
aux(:,i)=b;
x(i)=det(aux)/det(A);
end
fprintf('\n la solucion del sistemaes: ');
fprintf('\n %10.5f ',x);
fprintf('\n ');

DESARROLLO:
programa para la solucion de sistema de
-ecuaciones con n-incognitas
Teclea la matriz de coeficientes A:[(3-i) (8+i);(4+i)...