function i4cf_evaluate_test ( )

%*****************************************************************************80
%
%% I4CF_EVALUATE_TEST tests I4CF_EVALUATE.
%
%  Licensing:
%
%    I don't care what you do with this code.
%
%  Modified:
%
%    05 August 2017
%
%  Author:
%
%    John Burkardt
%
  n = 19;

  a = [ ...
    3, ...
    6, 6, 6, 6, 6, ...
    6, 6, 6, 6, 6, ...
    6, 6, 6, 6, 6, ...
    6, 6, 6, 6 ];

  b = [ ...
      0, ...
      1,    9,   25,   49,   81, ...
    121,  169,  225,  289,  361, ...
    441,  529,  625,  729,  841, ...
    961, 1089, 1225, 1369 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4CF_EVALUATE_TEST:\n' );

  [ p, q ] = i4cf_evaluate ( n, a, b );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  CF numerators, denominators, ratios:\n' );
  fprintf ( 1, '\n' );

  for i = 0 : n
    fprintf ( 1, '  %2d  %20d  %20d  %24.16g\n', ...
      i, p(i+1), q(i+1), p(i+1) / q(i+1) );
  end

  return
end
