function steve2_test ( )

%*****************************************************************************80
%
%% steve2_test() tests steve2().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    10 January 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'steve2_test():\n' );
  fprintf ( 1, '  steve2() analyzes Steve''s elevator problem.\n' );
  fprintf ( 1, '  Steve gets on an elevator going up.  There are N higher floors.\n' );
  fprintf ( 1, '  Steve wishes to go up 9 floors.\n' );
  fprintf ( 1, '  There are K additional riders in the elevator, each of whom has\n' );
  fprintf ( 1, '  randomly chosen one of the higher floors as destination.\n' );
  fprintf ( 1, '  On average, how many times S will the elevator stop until Steve\n' );
  fprintf ( 1, '  reaches his floor?\n' );
  fprintf ( 1, '  The theoretical value is T.\n' );

  k_test = [  3,  3, 10, 10 ];
  n_test = [ 11, 20, 11, 20 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, '   N   K   S   T\n' );
  fprintf ( 1, '\n' );

  for i = 1 : 4
    k = k_test(i);
    n = n_test(i);
    [ S, T ] = steve2 ( k, n );
    fprintf ( 1, '  %d  %d  %g  %g\n', n, k, S, T );
  end

  return
end

