%% Harj. 1 teht. 13, H1T13R.m Funktion nollak. ja ääriarvot.
%  Käytetään vain Matlabin perusoperaatioita.

%% Kuvaaja
p=[1 -7 11 7 -10]
x=linspace(-2,4); % Muutaman kokeilun jalkeen.
y=polyval(p,x);
plot(x,y);grid on
shg
%% Nollakohdat ja ääriarvot:
r=roots(p)
dp=polyder(p)
dr=roots(dp)
%% b) Paikallinen maksimi ilman derivointia:
% Maaritellaan polynomi funktioksi:
f=@(x)polyval(p,x)
fplot(f,[1 3])
grid on
shg
x=linspace(1.8,2,1000);
y=f(x);
ymax=max(y)
maxind=find(ymax==y)
xmax=x(maxind)