g_06 <- function ( x )

#*****************************************************************************80
#
## g_06() evaluates - x * sin(10 pi x ) - 1.0;
#
#  Discussion:
#
#    There is a local minimum between 1.80 and 1.90 at about
#    1.850547466.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    19 January 2013
#
#  Author:
#
#    John Burkardt
#
#  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 ( 10.0 * pi * x ) - 1.0

  return ( value )
}