function y = Evalua_Polinomio(x, a) 
% Evalua_Polinomio(x, a)
%   x : Valor en el cual se desea evaluar el polinomio
%   a : Coeficientes polinomiales

n = length(a);
p = 0.0;

for k=n:-1: 1
    %fprintf('%d & p = %f * %f  + %f & %f \\\\ \n',k-1, p, x, a(k), p.*x + a(k));
    p = p.*x + a(k);
end
y = p;