Anul 3 Semestrul 2
This commit is contained in:
@@ -0,0 +1,17 @@
|
||||
function [x, nit] = jacobi(A, b, x0, err, maxnit)
|
||||
n = length(b);
|
||||
M = diag(diag(A));
|
||||
N = M - A;
|
||||
T = M^(-1)*N;
|
||||
c = M^(-1)*b;
|
||||
x = x0;
|
||||
for k = 1:maxnit
|
||||
old_x = x;
|
||||
x = T*x+c;
|
||||
if norm(x-old_x,inf) <= ((1-norm(T,inf))/norm(T,inf))*err
|
||||
nit = k;
|
||||
return;
|
||||
endif
|
||||
endfor
|
||||
error('Too dificult');
|
||||
end;
|
||||
Reference in New Issue
Block a user