function bernstein_vandermonde_matrix_test ( )

%*****************************************************************************80
%
%% bernstein_vandermonde_matrix_test() tests bernstein_vandermonde_matrix().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 February 2024
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'bernstein_vandermonde_matrix_test():\n' );
  fprintf ( 1, '  bernstein_vandermonde_matrix() returns an NxN matrix\n' );
  fprintf ( 1, '  whose (I,J) entry is the value of the J-th Bernstein\n' );
  fprintf ( 1, '  polynomial of degree N-1 evaluated at the I-th equally\n' );
  fprintf ( 1, '  spaced point in [0,1].\n' );

  n = 8;
  a = bernstein_vandermonde_matrix ( n );
  r8mat_print ( n, n, a, '  Bernstein Vandermonde ( 8 ):' );

  return
end

