#*****************************************************************************80
#
## fsolve_test() tests fsolve().
#
# Licensing:
#
# This code is distributed under the MIT license.
#
# Modified:
#
# 09 April 2021
#
# Author:
#
# John Burkardt
#
library ( "pracma" )
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "fsolve_test\n" )
cat ( " ", version$version.string, "\n" )
cat ( " fsolve() solves one or more nonlinear equations.\n" )
cat ( " In MATLAB, fsolve() is in the Optimization toolbox.\n" )
cat ( " In Octave, fsolve() is directly available.\n" )
cat ( " In Python, fsolve() is scipy.optimize.\n" )
cat ( " In R, fsolve() is available through the pracma library.\n" )
#source ( "/home/burkardt/public_html/r_src/fsolve_test/fsolve_test01.R" )
source ( "/home/burkardt/public_html/r_src/fsolve_test/fsolve_test02.R" )
source ( "/home/burkardt/public_html/r_src/fsolve_test/fsolve_test03.R" )
source ( "/home/burkardt/public_html/r_src/fsolve_test/fsolve_test04.R" )
#
# Unbelievably, the version of fsolve() will not handle a single equation!
#
#fsolve_test01 ( )
fsolve_test02 ( )
fsolve_test03 ( )
fsolve_test04 ( )
#
# Terminate.
#
cat ( "\n" )
cat ( "fsolve_test\n" )
cat ( " Normal end of execution.\n" )
cat ( date ( ), "\n" )