function rbf_weight_test ( )

%*****************************************************************************80
%
%% RBF_WEIGHT_TEST tests RBF_WEIGHT.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    30 June 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'RBF_WEIGHT_TEST:\n' );
  fprintf ( 1, '  RBF_WEIGHT computes the weights WD associated with the\n' );
  fprintf ( 1, '  data XD, YD, FD.\n' );

  m = 2;
  nd = 5;
  xyd = [ 0.0, 1.0, -1.0, 2.0, 0.0;
         0.0, 2.0,  3.0, 3.0, 4.0 ]; 
  r0 = 1.5;
  fd = [ 0.0; 1.0; 4.0; 9.0; 16.0 ];

  wd = rbf_weight ( m, nd, xyd, r0, @phi1, fd );
 
  fprintf ( 1, '\n' );
  fprintf ( 1, '      XD        YD        FD        WD\n' );
  fprintf ( 1, '\n' );
  for j = 1 : nd
    fprintf ( 1, '  %8.4f  %8.4f  %8.4f  %8.4f\n', ...
      xyd(1,j), xyd(2,j), fd(j), wd(j) );
  end

  return
end

