clear
%algandmed
x=1:8;
y=[0 8 5 6 2 4 3 1];

%teeme võrgu
xvork=1:0.001:8;
%interpoleerimine
ysplain=interp1(x,y,xvork,"spline");
%leitakse kuupfunktsiooni väärtused xvork igas punktis

%joonis
plot(x,y,'r*',xvork,ysplain,'k')
grid on
legend('algandmed','kuupsplain')