mirror of
https://github.com/kuhyx/WUT_Computer_Science.git
synced 2026-07-04 17:03:12 +02:00
17 lines
420 B
Matlab
17 lines
420 B
Matlab
function[bool] = warDost(A,n)
|
|
for i = 1:n
|
|
%Sumujemy wszystkie elementy w wierszu oprócz głównej przekštnej
|
|
sum = 0;
|
|
for j = 1:n
|
|
if i~=j
|
|
sum = sum + abs(A(i,j));
|
|
end
|
|
end
|
|
%Sprawdzamy warunek silnej dominancji dla jednego wiersza
|
|
if sum > abs(A(i,i))
|
|
bool = 0;
|
|
return;
|
|
end
|
|
end
|
|
bool = 1;
|
|
end |