function y = f (x)
  N = 50;
  a = 2.^-[1:N];
  y = Evalua_Polinomio(x, a) ;
endfunction