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

%võrk
svork=0:0.001:1.25;

%interpoleerimine
tlineaar=interp1(s,t,svork,'linear');
tsplain=interp1(s,t,svork,'spline');

%joonis
plot(s,t,'r*',svork,tlineaar,'b',svork,tsplain,'g')
legend('algandmed','lineaarsplain','kuupsplain')
title('Hobuse jooks')

%arvutamine
vastus1=interp1(s,t,0.45,'linear')
vastus2=interp1(s,t,0.45,'spline')