function roulette_result_test ( )

%*****************************************************************************80
%
%% ROULETTE_RESULT_TEST tests ROULETTE_RESULT.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    29 February 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ROULETTE_RESULT_TEST\n' );
  fprintf ( 1, '  ROULETTE_RESULTS returns results of N spins of a roulette\n' );
  fprintf ( 1, '  wheel with M = 36/37/38 pockets.\n' );

  m = 36;
  n = m * 100;
  seed = 123456789;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  M = %d\n', m );
  fprintf ( 1, '  N = %d\n', n );
  fprintf ( 1, '  The initial seed is %d\n', seed );

  [ v, seed ] = roulette_result ( m, n, seed );

  v = sort ( v );

  [ bar_num, bar_value, bar_frequency ] = i4vec_sorted_unique_hist ( n, v );

  i4vec2_print ( bar_num, bar_value, bar_frequency, '  Value and frequency:' );

  return
end
