function koreny=kresliPolynom(p,odkudX,kamX,prvkuX)
x = linspace(odkudX,kamX,prvkuX);
hodnotyPolynomu = polyval(p,x);
plot(x,hodnotyPolynomu)
title('Prubeh polynomu')
xlabel('x')
ylabel('y')
hold on
[Max,indexMax]=max(hodnotyPolynomu);
plot(x(indexMax),Max,'or')
[Min,indexMin]=min(hodnotyPolynomu);
plot(x(indexMin),Min,'ok')
koreny=roots(p);
if(isreal(koreny))
    plot(koreny,polyval(p,koreny),'og','MarkerSize')
else
    disp('koreny nejsou realne')
end
hold off
