function [faprox] = faprox(x);
%
% Calcula o valor de faprox(x).
%
% Input:  componentes x (escalar).
%
% Output: escalar faprox = faprox(x).
%
% L. N. Vicente, Outubro de 2004.
%
faux = 0;
n    = 10;
for i=1:n, 
    faux = faux + 2*cos(i*x);
end
%faux = faux + 2*(1/10)*cos(50*x);
faux = faux + 2*(1/5)*cos(100*x);
%
faprox = faux;
%
% Fim de faprox.