function p = polinomio_ricorsivo(a, x, k)
  n = length(a) - 1 ;
  if k < n
    p = a(k+1) + x .* polinomio_ricorsivo(a, x, k+1) ;
  else
    p = a(n+1) + 0*x ;
  end
end