function polynom_rovnice
p=[7,0,0,0,0,0,-1,6];
x=roots(p);
disp('Reseni rovnice')
disp(x)
disp('zkouska')
disp(polyval(p,x))
disp('Polynom z reseni (korenu)')
disp(poly(x)) % koeficient u nejvyssi mocniny rovny 1
disp('Polynom z reseni (korenu) - vynasobeny 7')
disp(7.*poly(x)) % koeficient u nejvyssi mocniny rovny 7
end

