function coupon_complete_pdf_test ( )

%*****************************************************************************80
%
%% coupon_complete_pdf_test() tests coupon_complete_pdf().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 April 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'coupon_complete_pdf_test():\n' );
  fprintf ( 1, '  coupon_complete_pdf() evaluates the Coupon Complete PDF.\n' );

  for type_num = 2 : 4

    fprintf ( 1, '\n' );
    fprintf ( 1, '  Number of coupon types is %d\n', type_num );
    fprintf ( 1, '\n' );
    fprintf ( 1, '   BOX_NUM      PDF             CDF\n' );
    fprintf ( 1, '\n' );
    cdf = 0.0;
    for box_num = 1 : 20
      pdf = coupon_complete_pdf ( type_num, box_num );
      cdf = cdf + pdf;
      fprintf ( 1, '  %8d  %14f  %14f\n', box_num, pdf, cdf );
    end

  end

  return
end
