function roulette_result_test ( )

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

  m = 36;
  n = m * 100;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  M = %d\n', m );
  fprintf ( 1, '  N = %d\n', n );
 
  v = roulette_result ( m, n );

  v = sort ( v );

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

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

  return
end
