function squash_test ( )

%*****************************************************************************80
%
%% squash_test() tests squash().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 January 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'squash_test():\n' );
  fprintf ( 1, '  squash() estimates the probability of winning the game of squash\n' );
  fprintf ( 1, '  played between two equally good players:\n' );
  fprintf ( 1, '  P: if you serve first,\n' );
  fprintf ( 1, '  Q: if you serve second.\n' );

  [ p, q ] = squash ( );

  p_exact = 0.534863456;
  q_exact = 0.465136543;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  P Estimate = %g, exact is %g\n', p, p_exact );
  fprintf ( 1, '  Q Estimate = %g, exact is %g\n', q, q_exact );

  return
end

