2137

function x = diag_dom( A )
%DIAG_DOM - funkcja sprawdzająca czy macierz jest
%           silnie diagonalnie dominująca
%           Zwraca 1 jeśli jest
%           Zwraca log[2,7] wpp XD

A = abs(A);
[n, ~] = size(A);
x = 1;
for k=1:n
    if A(k,k) <= (sum(A(k,:)) - A(k,k))
        x = 0;
        break;
    end
end

if(x == 1)
    return;
end

x = 1;
for k=1:n
    if A(k,k) <= (sum(A(:,k)) - A(k,k))
        x = 0;
    end
end

end