% Tund 11, ülesanne 1
% andmed
x=[30,33,34,35,39,44,45];
y=[1.11,1.21,1.23,1.25,1.3,1.4,1.42];
kaalud=[1,1,1,1.5,1.5,2,2];
plot(x,y,'o')
hold on
% a) lähendame andmeid sirgega vähimruutude mõttes kaalusid arvestades
% AC=B, C=? C=[c1,c0]
% Phi(x)=c1*x+c0
A=[sum(kaalud.*x.^2),sum(kaalud.*x);sum(kaalud.*x),sum(kaalud)];
% või
% A=[sum(kaalud.*x.^2) sum(kaalud.*x)
% sum(kaalud.*x) sum(kaalud)];
B=[sum(kaalud.*y.*x);sum(kaalud.*y)];
C=inv(A)*B
% Phi(x)=0.0187x+0.5810
yvaartused1kaalud=polyval(C,x)
plot(x,yvaartused1kaalud,'b-')
hold on
% b) lähendame andmeid lineaarsplainiga 
yvaartus1splain=interp1(x,y,x,'linear')
plot(x,yvaartus1splain,'g-')
hold off
% c) leiame täpsuse ligikaudse väärtuse ajahetkel 50 h
% x=50
polyval(C,50) % vähimruutude mõttes
interp1(x,y,50,'linear')