function testSoustavy(A,b)
% Funkce pro øešení soustavy lineárních algebraických rovnic s otestováním øešitelnosti soustavy. 
% Vstupní parametry: matice koeficientù soustavy A a vektor pravých stran b.
% Pøíklad volání funkce: testSoustavy([3,4;2,-5],[11;-8])
 if (size(A,2) ~= rank(A))
    if (rank(A) ~= rank([A,b]))
      disp('Soustava nema reseni...')
    else
      disp('Soustava ma nekonecne mnoho reseni')
    end
  else
    x = A \ b;
    disp('Reseni soustavy:');
    for n=1:length(x)
        disp(['x',num2str(n),' = ',num2str(x(n))])
    end
  end
end

