clear

%algandmed
x=1:0.1:2;
y=[2.1 2.4 5 3 3.1 3.3 6 7.2 8 8.2 11];
alpha=5; %eesnime tähtede arv
beeta=8; %perekonnanime tähtede arv

%andmete muutmine
for i=1:11
    y(i)=y(i)+(-1)^(i+alpha)*0.01*beeta;
end
y

%lähendamine
xvork=1:10^-3:2;
ysplain=interp1(x,y,xvork,'spline'); %kuupsplain

kordajad=polyfit(x,y,3) %kuupfunktsioon vähemruutude mõttes
ykuup=polyval(kordajad, xvork); 

%joonis
plot(x,y,'r*',xvork,ysplain,'b',xvork,ykuup,'g')
legend('algandmed', 'kuupsplain', 'kuupfunktsioon vähimruutude mõttes')
title('Viimane ülesanne')

%arvutamine
koht=1.4-0.01*alpha
vastus1=interp1(x,y,koht,'spline')
vastus2=polyval(kordajad, koht)