function soustava
A=[1,1;2,2];
b=[1;5];
x=A\b;
fprintf('Determinant matice %d\n',det(A))
fprintf('Hodnost matice %d\n',rank(A))
fprintf('Hodnost matice rozsirene %d\n',rank([A,b]))
if((rank(A)==rank([A,b]))&&(rank(A)==length(b)))
    disp(x)
elseif ((rank(A)==rank([A,b]))&&(rank(A)<length(b))) 
    disp('Soustava ma nekonecne mnoho reseni')
else
    disp('Soustava nema reseni')
    
end

