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

%võrk
svork=0:0.0001:1.25;
tlinear=interp1(s,t,svork,'linear');
tsplain=interp1(s,t,svork,'spline');

%joonis
plot(s,t,'r*',svork,tlinear,svork,tsplain)
legend('algandmed','lineaarne lähend','kuupsplain')

%arvutamine s=0,45
vastuslinear=interp1(s,t,0.45,'linear')
vastussplain=interp1(s,t,0.45,'spline')