function k = kresliPolynomSkoreny(p,odkudX,kamX,prvkuX)
x = linspace(odkudX,kamX,prvkuX);
hodnotyPolynomu = polyval(p,x);
pMax = find(hodnotyPolynomu == max(hodnotyPolynomu));
pMin = find(hodnotyPolynomu == min(hodnotyPolynomu));
plot(x,hodnotyPolynomu,'.')
title('Prubeh polynomu')
xlabel('x')
ylabel('hodnoty polynomu')
hold on
plot(x(pMax),hodnotyPolynomu(pMax),'or','MarkerSize',12,'Linewidth',3); % pøidáme do grafu maximum
plot(x(pMin),hodnotyPolynomu(pMin),'ok','MarkerSize',12,'Linewidth',3); % pøidáme do grafu minimum
k = roots(p);
for cykl = 1:length(k)
    if (isreal(k(cykl)))
        plot(k(cykl),0,'og','MarkerSize',12,'Linewidth',3); % y-ová souøadnice korenu polynomu je nula
    end
end
hold off
end

