function P=Horner(A,XX);

% function = Horner(A,XX); 
% Evalue le polynôme dont la liste des coefficients est donnée par le
% vecteur ligne A aux entrées d'un vecteur ligne XX par la méthode de
% Hörner. 

N=length(A); 
NN=length(XX);  
P=A(1)*ones(1,NN); 
for i=2:N  
      P = XX.* P + A(i); 
end 