function shepard_basis_1d_test ( )

%*****************************************************************************80
%
%% shepard_basis_1d_test() tests shepard_basis_1d().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    02 July 2015
%
%  Author:
%
%    John Burkardt
%
  nd = 4;
  ni = 21;

  p = 2.0;

  xd = [ 0.0; 2.0; 5.0; 10.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'shepard_basis_1d_test():\n' );
  fprintf ( 1, '  shepard_basis_1d() evaluates the Shepard 1D basis\n' );
  fprintf ( 1, '  functions.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Using power P = %g\n', p );

  x_min = 0.0;
  x_max = 10.0;
  xi = linspace ( x_min, x_max, ni );

  lb = shepard_basis_1d ( nd, xd, p, ni, xi );

  r8mat_print ( ni, nd, lb, '  The Shepard basis functions:' );

  return
end
