function double_dart_test ( )

%*****************************************************************************80
%
%% double_dart_test() tests double_dart().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 January 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'double_dart_test():\n' );
  fprintf ( 1, '  double_dart() considers the double dart problem.\n' );
  fprintf ( 1, '  If two darts land randomly in the unit circle,\n' );
  fprintf ( 1, '  what is the probability that they are at least 1 unit apart?\n' );

  prob = double_dart ( );

  exact = 3.0 * sqrt ( 3.0 ) / 4.0 / pi;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Estimate = %g, exact is %g\n', prob, exact );

  return
end

