clear % kustutame vahem2lu 2ra
% Harjutustund 13, ylesanne 2
s=[2:0.2:3];
h=0.2;
y=[10,12.2,14,15.8,17,18.3];
plot(s,y,'o')
tuletis(1)=(y(2)-y(1))/h
for i=2:(length(s)-1)
  tuletis(i)=(y(i+1)-y(i-1))/(2*h);
end
tuletis
tuletis(6)=(y(6)-y(5))/h