function english_word_length_cdf_test ( ) %*****************************************************************************80 % %% ENGLISH_WORD_LENGTH_CDF_TEST tests ENGLISH_WORD_LENGTH_CDF. % % Licensing: % % This code is distributed under the GNU LGPL license. % % Modified: % % 08 April 2016 % % Author: % % John Burkardt % seed = 123456789; fprintf ( 1, '\n' ); fprintf ( 1, 'ENGLISH_WORD_LENGTH_CDF_TEST\n' ); fprintf ( 1, ' ENGLISH_WORD_LENGTH_CDF evaluates the English Word Length CDF;\n' ); fprintf ( 1, ' ENGLISH_WORD_LENGTH_CDF_INV inverts the English Word Length CDF.\n' ); fprintf ( 1, ' ENGLISH_WORD_LENGTH_PDF evaluates the English Word Length PDF;\n' ); fprintf ( 1, '\n' ); fprintf ( 1, ' X PDF CDF CDF_INV\n' ); fprintf ( 1, '\n' ); for i = 1 : 10 [ x, seed ] = english_word_length_sample ( seed ); pdf = english_word_length_pdf ( x ); cdf = english_word_length_cdf ( x ); x2 = english_word_length_cdf_inv ( cdf ); fprintf ( 1, ' %12d %12g %12g %12d\n', x, pdf, cdf, x2 ); end return end