function vandermonde_value_1d_test ( )

%*****************************************************************************80
%
%% VANDERMONDE_VALUE_1D_TEST tests VANDERMONDE_VALUE_1D.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    03 July 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'VANDERMONDE_VALUE_1D_TEST\n' );
  fprintf ( 1, '  VANDERMONDE_VALUE_1D evaluates a Vandermonde interpolant.\n' );

  nd = 5;
  cd = [ 24.0, -50.0, +35.0, -10.0, 1.0 ];
  r8poly_print ( nd - 1, cd, '  The Vandermonde interpolant:' );

  ni = 16;
  x_lo = 0.0;
  x_hi = 5.0;
  xi = r8vec_linspace ( ni, x_lo, x_hi );

  yi = vandermonde_value_1d ( nd, cd, ni, xi );

  r8vec2_print ( ni, xi, yi, '  Vandermonde interpolant values:' );

  return
end
