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

%teeme võrgu
xvork=1:0.001:8; %NB! Sammupikkus oluline

%interpoleerimine
ysplain=interp1(x,y,xvork,'spline');
%selle käsuga arvutatakse kuupsplaini väärtused xvorgu igas punktis

%joonis
plot(x,y,'ko',xvork,ysplain)
legend('algandmed','kuupsplain')