function matice
r=input('Zadej pocet radku: ');
s=input('Zadej pocet sloupcu: ');
if((r<=0)||(s<=0))
    return;
end
for n=1:r
    for m=1:s
        A(n,m)=input(['Zadej prvek na pozici ',num2str(n),',',num2str(m),': ']);
    end
end
disp(A)
disp('Diagonala matice:')
disp(diag(A))
disp('Maximum matice:')
disp(max(max(A)))
disp('Minimum matice:')
disp(min(min(A)))
disp('Hodnost matice:')
disp(rank(A))
if(r==s)
    disp('determinant matice:')
    disp(det(A))
else
    disp('Matice neni ctvercova')
end
disp('Zadej vektor pravych stran')
for n=1:r
    b(n)=input(['Prvek na pozici ',num2str(n),': ']);
end
disp(b);
Ar=[A,b.'];
disp('Matice rozsirena')
disp(Ar)
if(rank(A)==rank(Ar))
    if(rank(A)==r)
        x=A\b.';
        disp('Reseni')
        disp(x)
    else
        disp('Soustava ma nekonecne mnoho reseni')
    end
else
    disp('Soustava nema reseni')
end


