clear
%algandmed
s=0:0.25:1.25;
t=[0 25 49.4 73 96.4 119.4];

%teeme võrgu
svork=0:1e-3:1.25;

%lähendamine splainidega
tlinear=interp1(s,t,svork,'linear');
tsplain=interp1(s,t,svork,'spline');

%joonis
plot(s,t,'ko',svork,tlinear,svork,tsplain)
legend('algandmed','lineaarsplain','kuupsplain')
title('Hobuse jooks (aeg ja vahemaa)')
xlabel('s')
ylabel('t')

%arvutamine, leiame aja, mis kulub 0.45 miili läbimiseks
aeg1=interp1(s,t,0.45,'linear')
aeg2=interp1(s,t,0.45,'spline')