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

%svõrk
svork=0:1e-3:1.25;

%lähendamine
tlineaar=interp1(s,t,svork,'linear'); %lineaarsplain
tsplain=interp1(s,t,svork,'spline'); %kuupsplain

%joonis
plot(s,t,'r*',svork,tlineaar,svork,tsplain)
legend('lähteandmed','lineaarsplain','kuupsplain')
title('Pealkiri')
xlabel('Vahemaa s')
ylabel('Aeg t')
grid on

%arvutamine
aeglineaar=interp1(s,t,0.45,'linear')
aegsplain=interp1(s,t,0.45,'spline')