function digital_dice_test ( )

%*****************************************************************************80
%
%% DIGITAL_DICE_TEST tests DIGITAL_DICE.
%
%  Modified:
%
%    07 May 2019
%
%  Reference:
%
%    John Burkardt
%
%  Reference:
%
%    Paul Nahin,
%    Digital Dice: Computational Solutions to Practical Probability Problems,
%    Princeton, 2008,
%    ISBN: 978-0-691-15821-1.
% 
  addpath ( '../digital_dice' );

  timestamp ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'DIGITAL_DICE_TEST\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Test DIGITAL_DICE.\n' );

  aandb ( );
  average ( 100 );
  average ( 10000 );
  average ( 1000000 );
  boom ( 10000 );
  boom ( 100000 );
  broke ( 1, 1, 1, 0.5 );
  broke ( 1, 2, 3, 0.5 );
  broke ( 2, 3, 4, 0.5 );
  broke ( 3, 3, 3, 0.5 );
  broke ( 4, 7, 9, 0.5 );
  broke ( 1, 1, 1, 0.4 );
  broke ( 1, 2, 3, 0.4 );
  broke ( 2, 3, 4, 0.4 );
  broke ( 3, 3, 3, 0.4 );
  broke ( 4, 7, 9, 0.4 );
  bus ( 1 );
  bus ( 2 );
  bus ( 3 );
  bus ( 4 );
  bus ( 5 );
  car ( 3 );
  car ( 10 );
  car ( 20 );
  car ( 30 );
  chess ( 0.9, 0.8 );
  chess ( 0.9, 0.4 );
  chess ( 0.4, 0.3 );
  chess ( 0.4, 0.1 );
  committee ( );
  deli ( 30, 40, 1 );
  deli ( 30, 40, 2 );
  deli ( 50, 25, 1 );
  deli ( 50, 25, 2 );
  dinner ( );
  dish ( );
  easywalk ( 1000 );
  election ( 3, 2, 2, 0 );
  election ( 3, 3, 2, 1 );
  election ( 7, 7, 4, 0 );
  election ( 25, 2, 17, 1 );
  estimate ( );
  fb ( );
  floss ( 40 );
  floss ( 150 );
  gameb ( );
  gs ( 1 );
  gs ( 2 );
  gs ( 3 );
  guess ( 24 );
  jury ( );
  kelvin ( );
  malt ( );
  missing ( 49, 3 );
  missing ( 49, 4 );
  missing ( 49, 5 );
  mono ( );
  obtuse ( );
  obtuse1 ( );
  optimal ( 11, 2 );
  optimal ( 50, 5 );
  patrol ( 1 );
  patrol ( 2 );
  patrol ( 3 );
  patrol ( 4 );
  patrol ( 5 );
  pierror ( );
  rhs ( );
  rolls ( );
  smoker ( );
  smokerb ( );
  spin ( );
  steve ( 0 );
  steve ( 1 );
  steve ( 2 );
  steve ( 3 );
  steve ( 9 );
  stopping ( 5 );
  stopping ( 10 );
  stopping ( 20 );
  stopping ( 50 );
  stopping ( 100 );
  sylvester_quadrilateral ( );
  test ( 24 );
  umbrella ( 1, 1 );
  umbrella ( 2, 2 );
  walk ( 2 );
  walk ( 5 );
  walk ( 10 );
  walk ( 20 );
  walk ( 50 );
  walk ( 100 );

  fprintf ( 1, '\n' );
  fprintf ( 1, 'DIGITAL_DICE_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );
  timestamp ( );

  rmpath ( '../digital_dice' );

  return
end
