% Tund 11, ülesanne 2
x=[9.0,9.5,10.0,11.0];
y=[2.197,2.251,2.302,2.397];
plot(x,y,'o')
hold on
% leiame Lagrange interpolatsioonipolünoomi'
syms X;
summa=0;
for i=1:length(x)
    L=1;
  for j=1:length(x)
   if i~=j
     L=L*(X-x(j))/(x(i)-x(j));
   end
  end
   summa=summa+y(i)*L;
end
lagrangepolynoom=simplify(summa)
syms z(X); % sümboolne funktsioon
z(X)=lagrangepolynoom;
vpa(z(9.2))
log(9.2)
fplot(z(X),[7,12])