function final_test ( )

%*****************************************************************************80
%
%% final_test() tests final().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 January 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'final_test():\n' );
  fprintf ( 1, '  final() estimates the probability, for random A and B\n' );
  fprintf ( 1, '  that:\n' );
  fprintf ( 1, '    A^2/3 + B^2/3 < 1\n' );

  s = final ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Estimated probability = %g\n', s );
  fprintf ( 1, '  Exact probability     = %g\n', 3 * pi / 32 );

  return
end

