% Koduse töö lahendamine
x=[-4,-3,-2,0,2,3,4];
y=[0.32,-0.27,-0.55,-0.48,0.28,1.12,1.87];
% Algandmed tabelina
disp([x;y])
plot(x,y,'o')
% Moodustan võrgu
xvork=[-4:0.10:4];
% a) Lähendame andmeid lineaarsplainiga S^(1,0)
xlineaarsplain=interp1(x,y,xvork,'linear');
% b) Lähendame andmeid kuupsplainiga S^(3,2)
xkuupsplain=interp1(x,y,xvork,'spline');
% Teeme joonise
plot(x,y,'o',xvork,xlineaarsplain,'color','g')
hold on
plot(xvork,xkuupsplain,'color','b')
hold on
title('Kodune töö nr. 9')
xlabel('x')
ylabel('y')
% c) Lähendame ruutfunktsiooniga vähimruutude mõttes
kordajad=polyfit(x,y,2);
yvaartused=polyval(kordajad,xvork);
plot(xvork,yvaartused,'color','r')
legend('algandmed','lineaarsplain','kuupsplain','ruutfunktsioon')
hold off
% Leian ruutfunktsiooni väärtused, kui x=2,5 ja x=-1
vastus1splain=interp1(x,y,2.5,'spline')
vastus1vahimruudud=polyval(kordajad,2.5)
vastus2splain=interp1(x,y,-1,'spline')
vastus2vahimruudud=polyval(kordajad,-1)