% Harjutustund nr. 8, Ülesanne nr. 2
% andmed
x=[-1,0.1,0.5,3,4,6.3,7,9];
y=[-2,0.4,0.7,2,4,3.6,3.8,6];
disp([x;y])
% graafik
plot(x,y,'o')
grid on
hold on

% lähendame andmeid 
% a) 1-astme polünoomiga
k1=polyfit(x,y,1) % polünoomi kordajad
yk1=polyval(k1,x) % polünoomi väärtused iga x korral
disp([x;y;yk1])
plot(x,yk1,'b')
hold on
% b) 2-astme polünoomiga
k2=polyfit(x,y,2); % polünoomi kordajad
yk2=polyval(k2,x); % polünoomi väärtused iga x korral
plot(x,yk2,'g')
hold on
% c) 3-astme polünoomiga
k3=polyfit(x,y,3); % polünoomi kordajad
yk3=polyval(k3,x); % polünoomi väärtused iga x korral
plot(x,yk3,'k')
hold on
% d) 6-astme polünoomiga
k6=polyfit(x,y,6); % polünoomi kordajad
yk6=polyval(k6,x); % polünoomi väärtused iga x korral
plot(x,yk6,'r')
hold off
% e) polünoomi väärtus kohal x=3.5
% teise astme polünoomi korral
polyval(k2,3.5)
% kuuenda astme polünoomi korral
polyval(k6,3.5)

polyval(k2,3)
polyval(k6,3)