function marks_test ( )

%*****************************************************************************80
%
%% marks_test() tests marks().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 January 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'marks_test():\n' );
  fprintf ( 1, '  marks() considers a problem in which N sticks are\n' );
  fprintf ( 1, '  each broken into a long and short piece.\n' );
  fprintf ( 1, '  Pairs of the 2*N pieces are then randomly combined\n' );
  fprintf ( 1, '  to form N new sticks.  What is PROB, the probability\n' );
  fprintf ( 1, '  that every new stick will be formed from a long and\n' );
  fprintf ( 1, '  a short piece?\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    N    Prob  Exact\n' );
  fprintf ( 1, '\n' );
  for n = 1 : 10
    p = marks ( n );
    fprintf ( 1, '  %2d  %g  %g\n', n, p, 2.0 / ( n + 1 ) );
  end

  return
end

