clear
x=1:8;
y=[0 8 5 6 2 4 3 1];
xvork=1:10^-3:8; %NB! Suur vektor

ysplain=interp1(x,y,xvork,'spline'); %see käsk arvutab kuupsplaini väärtuse 
% xvorgu igas punktis.

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