function vandermonde_value_1d_test ( )

%*****************************************************************************80
%
%% vandermonde_value_1d_test() tests vandermonde_value_1d().
%
%  Licensing:
%
%    This code is distributed under the MIT 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 ( cd, '  The Vandermonde interpolant:' );

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

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

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

  return
end
