#*****************************************************************************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" )