double f6 ( double x )
{
  double value;

  value = x * exp ( x ) - 1000.0;

  return value;
}