
function fxbar = horner (alpha,xbar)

% HORNER Calcola il valore di un polinomio in xbar
% utilizzando l'algoritmo di Horner,
%
% Uso:
% fxbar = horner (alpha,xbar)
%
% Dati di ingresso:
% alpha vettore dei coefficienti ordinati per indici
% crescenti (alpha_0, alpha_1, ... )
% xbar valore in cui si vuole valutare il polinomio
%
% Dati di uscita:
% fxbar valore di P(xbar)

n1=length(alpha);
fxbar=alpha(n1)*ones(size(xbar));
for j=n1-1:-1:1
    fxbar=fxbar.*xbar+alpha(j);
end