function soustava_zkouska(A,b,x)
% provede zkousku reseni soustavy linearnich rovnic
zk=(((A*x)-(b.'))<=1e-12);
if (all(zk))
    msgbox('Reseni je platne.','Zkouska uspesna','help')
else
    msgbox('Reseni je nevyhovuje.','Zkouska nedopadla dobre','error')
end
