clear
%Lähteandmed
x=1.2:0.1:2;
y=[9.08 10.43 11.9 13.48 15.19 17.03 19.01 21.13 23.39];

%teeme võrgu
xvork=1.2:1e-3:2;

%Lähendamine
%1) kuupsplain
ysplain=interp1(x,y,xvork,'spline');

%2) vähimruutude mõttes kuupfunktsioon
kordajad=polyfit(x,y,3); %tahame kuupfunktsiooni, sellepärast 3
ykuup=polyval(kordajad,xvork);

%Joonis
plot(x,y,'b*',xvork,ysplain,xvork,ykuup)
legend('Algandmed','Kuupsplain','Vähimruutude mõttes kuupfunktsioon')

%arvutamine
%1) x=1.12
vastus1=interp1(x,y,1.12,'spline')
vastus11=polyval(kordajad,1.12)
%2) x=1.32
vastus2=interp1(x,y,1.35,'spline')
vastus22=polyval(kordajad,1.35)