mirror of
https://github.com/kuhyx/WUT_Computer_Science.git
synced 2026-11-11 13:27:38 +01:00
24 lines
560 B
Matlab
24 lines
560 B
Matlab
function[x] = Zadanie3(n,e2)
|
|
i=1;
|
|
e=1;
|
|
A = b_genA(n);
|
|
b = b_genB(n);
|
|
|
|
%Sprawdzenie warunku dostatecznego zbieżności
|
|
if(warDost(A,n) == 0)
|
|
disp('Warunek silnej dominacji diagonalnej nie jest spelniony');
|
|
return
|
|
end
|
|
|
|
while e>e2 % 0.0000001
|
|
[x,iter(i),od] = GaussSeidel(A,b,n,e);
|
|
e = e/10;
|
|
r(i) = od;
|
|
i = i+1;
|
|
end
|
|
plot(iter, r);
|
|
disp(norm(A*x-b));
|
|
title('Zaleznosc bledu wyniku od ilosci iteracji')
|
|
xlabel('Ilosc iteracji');
|
|
ylabel('Blad wyniku');
|
|
end |