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

%xvõrk
xvork=1:0.0001:8; %x esimene ja viimane väärtus!

%lähendamine täisarvulise funktsiooniga
ytais=interp1(x,y,xvork,'nearest');
%lähendamine lineaarfunktsiooniga
ylineaar=interp1(x,y,xvork,'linear');
%lähendamine kuupfunktsiooniga
ykuup=interp1(x,y,xvork,'cubic');
%lähendamine kuupsplainiga
ysplain=interp1(x,y,xvork,'spline');

%joonis
plot(x,y,'k*',xvork,ytais,xvork,ylineaar,xvork,ykuup,xvork,ysplain)
legend('algandmed','täisarvuline lähend','lineaarsplain','kuupfunktsioon','kuupsplain')

%arvutamine
%x=4,5
vastus1=interp1(x,y,4.5,'nearest')
vastus2=interp1(x,y,4.5,'linear')
vastus3=interp1(x,y,4.5,'cubic')
vastus4=interp1(x,y,4.5,'spline')

%x=7.89
vastus11=interp1(x,y,7.89,'nearest')
vastus22=interp1(x,y,7.89,'linear')
vastus33=interp1(x,y,7.89,'cubic')
vastus44=interp1(x,y,7.89,'spline')
