function bernstein_matrix_test ( )

%*****************************************************************************80
%
%% bernstein_matrix_test() tests bernstein_matrix().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 January 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'bernstein_matrix_test():\n' );
  fprintf ( 1, '  bernstein_matrix() returns a matrix A which transforms a\n' );
  fprintf ( 1, '  polynomial coefficient vector from the power basis to\n' );
  fprintf ( 1, '  the Bernstein basis.\n' );

  n = 5;
  a = bernstein_matrix ( n );
  r8mat_print ( n, n, a, '  The Bernstein matrix A of order 5x5' );

  return
end

