clear
x=1:0.1:2;
y=[2.1 2.4 5 3 3.1 3.3 6 7.2 8 8.2 11];
h=0.1;
a=5; %eesnime tähtede arv
b=8; %perekonnanime tähtede arv

%andmete muutmine
for i=1:11
    y(i)=y(i)+(-1)^(i+a)*0.01*b;
end

%tuletised
ytuletis(1)=(y(2)-y(1))/h;
ytuletis(11)=(y(11)-y(10))/h;
for i=2:10
    ytuletis(i)=(y(i+1)-y(i-1))/(2*h);
end

%lähendamine
vork=1:1e-3:2;
ykuup=interp1(x,y,vork,'spline');
ytul=interp1(x,ytuletis,vork,'linear');

%joonis
plot(x,y,'r*',vork,ykuup,vork,ytul)
legend('lähteandmed','lähtefunktsiooni kuupsplain','tuletise lineaarsplain')
title('Joonis nr 2')
xlabel('x')
ylabel('y')
grid on

%ekstreemumkoht on seal, kus y'=0
%joonise põhjal x=1,2 ja x=1,4
f=@(t)interp1(x,ytuletis,t,'linear');

xmax=fzero(f,1.2)
ymax=interp1(x,y,xmax,'spline')
xmin=fzero(f,1.4)
ymin=interp1(x,y,xmin,'spline')