f2 <- function ( x )

#*****************************************************************************80
#
## f2() evaluates a nonlinear system of 2 equations.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    09 April 2021
#
#  Author:
#
#    John Burkardt
#
#  Input:
#
#    double X[N], the variable values.
#
#  Output:
#
#    double FX[N], the function values.
#
{
  fx <- c ( 0.0, 0.0 )

  fx[1] <- x[1] * x[1] - 10.0 * x[1] + x[2] * x[2] + 8.0
  fx[2] <- x[1] * x[2] * x[2] + x[1] - 10.0 * x[2] + 8.0

  return ( fx )
}