function k = kresliPolynom(p,odkudX,kamX,prvkuX)
x = linspace(odkudX,kamX,prvkuX);
hodnotyPolynomu = polyval(p,x);
plot(x,hodnotyPolynomu,'.')
title('Prubeh polynomu')
xlabel('x')
ylabel('hodnoty polynomu')
[Max,indexMax] = max(hodnotyPolynomu);
disp('Maximum')
disp(Max)
disp('Index maxima')
disp(indexMax)
[Min,indexMin] = min(hodnotyPolynomu);
disp('Minimum')
disp(Min)
disp('Index minima')
disp(indexMin)
hold on
plot(x(indexMax),Max,'or','MarkerSize',12,'Linewidth',3)
plot(x(indexMin),Min,'ok','MarkerSize',12,'Linewidth',3)
k = roots(p);
if (isreal(k))
    plot(k, polyval(p,k),'og','MarkerSize',12,'Linewidth',3)
else
    disp('koreny nejsou realne')
end
hold off
end


