g_07 <- function ( x )

#*****************************************************************************80
#
## g_07() evaluates max(-2(x-1), 8(x-1)) + 25 (x-1)^2.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    22 January 2019
#
#  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 <- max ( -2.0 * ( x - 1 ), 8.0 * ( x - 1 ) ) + 25.0 * ( x - 1.0 ) ^ 2

  return ( value )
}