function collatz_polynomial_sequence_test ( )

%*****************************************************************************80
%
%% collatz_polynomial_sequence_test() tests collatz_polynomial_sequence().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    15 September 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'collatz_polynomial_sequence_test():\n' );
  fprintf ( 1, '  collatz_polynomial_sequence() returns the sequence of\n' );
  fprintf ( 1, '  Collatz polynomials generated from a given starting polynomial.\n' );

  fprintf ( 1, '\n' );
  p0 = [ 1, 0, 1 ];
  collatz_polynomial_sequence ( p0 );

  fprintf ( 1, '\n' );
  p0 = [ 0, 0, 1, 0, 1, 1 ];
  collatz_polynomial_sequence ( p0 );

  fprintf ( 1, '\n' );
  p0 = [ 1 ];
  collatz_polynomial_sequence ( p0 );

  return
end
