function [pred_dom] =test_pred_dom(a)
%test per predominanza diagonale per righe
pred_dom=1;
n=length(a);
for k=1:n
    s=0;
    for j=1:k-1
        s=s+abs(a(k,j));
    end
    for j=k+1:n
        s=s+abs(a(k,j));
    end
    if(s>=abs(a(k,k)))
        pred_dom=0;
        disp('matrice NON predominante diagonale');
        return
    end
end
disp('matrice predominante diagonale');
end