function soustava
A=[1,4;-5,3];
fprintf('Determinant %.2f\n',det(A));
fprintf('Hodnost matice: %d\n',rank(A));
b=[7;-6];
fprintf('Hodnost rozsirene matice: %d\n',rank([A,b]));
if((rank(A)==rank([A,b]))&&(rank(A)==length(b)))
    msgbox('Soustava ma jednoznacne reseni')
    y=A\b;
    disp(y)
    doSouboru(y);
elseif((rank(A)==rank([A,b]))&&(rank(A)<length(b)))
    msgbox('Soustava ma nekonecne mnoho reseni')
else
    msgbox('Soustava nema reseni')
end
if(det(A)==0)
    msgbox('Deteminant je rovny nule. Soustava nema jednoznacne reseni.');
    pause(1)
    return
end
end
function doSouboru(x)
n=input('Zadej nazev souboru s priponou: ','s');
f=fopen(n,'w');
for k=1:length(x)
    fprintf(f,'%.3f\n',x(k));
end
msgbox('Data ulozena do souboru.');
fclose(f);
end

