function koreny=kresliPolynomSkoreny(p,odkudX,kamX,prvkuX)
x = linspace(odkudX,kamX,prvkuX);
hodnotyPolynomu = polyval(p,x);
pMaxim = find(hodnotyPolynomu == max(hodnotyPolynomu)); 
    % index (pozice) prvku, který se rovná maximu z vektoru hodnotyPolynomu
pMinim = find(hodnotyPolynomu == min(hodnotyPolynomu)); 
    % index (pozice) prvku, který se rovná maximu z vektoru hodnotyPolynomu
plot(x, hodnotyPolynomu)
hold on;
plot(x(pMaxim),hodnotyPolynomu(pMaxim),'or'); 
    % pøidáme do grafu maximum
plot(x(pMinim),hodnotyPolynomu(pMinim),'ok');
    % pøidáme do grafu minimum

title('Prubeh polynomu');
xlabel('x');
ylabel('y');
 
koreny = roots(p);
for cykl = 1:length(koreny)
    if (isreal(koreny(cykl)))
        plot(koreny(cykl),0,'og','MarkerFaceColor','y');    % y-ová souøadnice korenu polynomu je nula
    end;
end;
hold off;
