function value = h_05 ( x )

%% H_05 evaluates ( x - sin ( x ) ) * exp ( - x * x ).
%
%  Modified:
%
%    14 April 2008
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, real X, the point at which F is to be evaluated.
%
%    Output, real VALUE, the value of the function at X.
%
  value = ( x - sin ( x ) ) * exp ( - x * x );