function parabolic_minimizer_test ( )

%*****************************************************************************80
%
%% parabolic_minimizer_test tests parabolic_minimizer.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    25 September 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'parabolic_minimizer_test\n' );
  fprintf ( 1, '  parabolic_minimizer seeks a point x which minimizes\n' );
  fprintf ( 1, '  a function f(x).\n' );

  a = 0.0;
  b = 5.0;
  c = 10.0;
  xtol = 0.0000001;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Search begins with:\n' );
  fprintf ( 1, '  a: f(%g) = %g\n', a, sag(a) );
  fprintf ( 1, '  b: f(%g) = %g\n', b, sag(b) );
  fprintf ( 1, '  c: f(%g) = %g\n', c, sag(c) );

  x = parabolic_minimizer ( @sag, a, b, c, xtol );

  fprintf ( 1, '\n' ); 
  fprintf ( 1, '  parabolic_minimizer returns estimated minimizer x:\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  x: f(%20.16g) = %20.16g\n', x, sag(x) );

  return
end

