function test01 ( )

%*****************************************************************************80
%
%% test01() runs the tests on a polynomial function.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    15 May 2024
%
%  Author:
%
%    John Burkardt
%
  a = 1.0;
  b = 1.5;
  c = 4.0;
%
%  Set the error tolerance.
%
  abserr = 0.00001;
%
%  Tell the program how many derivatives are available.
%
  nder = 3;
%
%  IPOLY is the order of the polynomial function
%  or -1 if the function is not a polynomial.
%
  ipoly = 3;
%
%  KMAX is the maximum number of iterations.
%
  kmax = 30;
%
%  MULT is the multiplicity of the root.
%  If not known, set MULT to 1.
%
  mult = 1;
%
%  For modified Newton methods, set the number of substeps.
%
  nsub = 3;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'test01():\n' );
  fprintf ( 1, '  Seek a root of a polynomial function F(X).\n' );
  fprintf ( 1, '  F(X) = (X+3) * (X+3) * (X-2)\n' );

  zoomin_all_test ( a, b, c, abserr, kmax, @func01, ipoly, mult, nder, nsub );

  return;
end
