ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Metodo De Jacobi


Enviado por   •  6 de Marzo de 2013  •  206 Palabras (1 Páginas)  •  473 Visitas

Método de jacobi en matlab

clear all

clc

En este primer paso se imprime el menú en pantalla

fprintf('Resolución del sistema Ax = b por \n');

fprintf('Jácobi \n\n')

n=input('Ingrese el orden del sistema = ');

fprintf('\n');

fprintf('Matriz coeficientes del sistema \n\n')

Aquí nos pide la aproximación inicial y la tolerancia

for i=1:n

for j=1:n

fprintf('coeficiente A(%d,%d) = ', i,j ) % Definición de la matriz A

A(i,j)=input(' ');

end

end

fprintf('\nVector términos independientes \n\n')

for i=1:n

fprintf('término b(%d) = ', i ) % Definición del vector b

b(i)=input(' ');

end

Se aplica la primera interaction dada

b=b';

fprintf('\nVector aproximación inicial\n\n')

for i=1:n

fprintf('xo(%d) = ', i ) % Definición de la aproximación inicial

xo(i)=input(' ');

end

xo=xo';

e=input('\nIngrese el valor de la tolerancia = '); % Definición de la tolerancia

fprintf('\n');

Se cicla hasta obtener el valor del paro en la matriz

for i=1:n

c(i)=b(i)/A(i,i); % Cálculo del vector c

for j=1:n

if i==j T(i,j)=0; , else T(i,j)=-A(i,j)/A(i,i);, end % Cálculo de la matriz T

end

end

c=c';

Er=A*xo-b;

Aquí es utilizado como criterio de paro en las iteraciones

while norm(Er,inf)>=e

x=T*xo+c;

xo=x;

Er=A*xo-b;

end

disp(x)

...

Descargar como (para miembros actualizados) txt (1 Kb)
Leer 1 página más »
Disponible sólo en Clubensayos.com