% Harjutustund 10, ylesanne 4
x=[0:0.25:1.25]; % s(miilid)
y=[0,25,49.4,73,96.4,119.4]; % t(sek)
plot(x,y,'o')
% a) l2hendame andmeid lineaarsplainiga S^(1,0)(x)
ys1=interp1(x,y,x,'linear')
hold on
plot(x,ys1,'b')
% aeg 0.45 miili läbimiseks
interp1(x,y,0.45,'linear') % S^(1,0)(0.45)=44.52
% b) lähendame andmeid kuupsplainiga S^(3,2)(x)
xx=[0:0.1:1.25];
ys3=interp1(x,y,xx,'spline'); % S^(3,2)(xx)
hold on
plot(xx,ys3,'r')
% aeg 0.45 miili läbimiseks kuupsplaini kasutades
interp1(x,y,0.45,'spline')