function one_rbf ( phi, phi_name )

%*****************************************************************************80
%
%% ONE_RBF displays a single radial basis function for multiple scales.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    24 February 2015
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, @ function PHI ( R ), a handle for the radial basis function.
%
%    Input, string PHI_NAME, the name of the radial basis function.
%
  r8_lo = -5.0;
  r8_hi = +5.0;
  ni = 101;
  xi = linspace ( r8_lo, r8_hi, ni );
%
%  Stick 5 line color choices in a string.
%
  cstring = 'rmkcb';
%
%  Plot the data.
%
  figure ( 1 );
  clf
  hold on
  r0 = 2.0;

  for i = 1 : 5

    m = 1;
    nd = 1;
    xd = 0.0;
    w = 1.0;
    yi = rbf_interp ( m, nd, xd, r0, phi, w, ni, xi );
    plot ( xi, yi, cstring(i), 'Linewidth', 3 );

    r0 = r0 / sqrt ( 2.0 );

  end
  xlabel ( '<--- X --->', 'FontSize', 16 );
  ylabel ( '<--- Y --->', 'FontSize', 16 );
  phi_name_tex = s_escape_tex ( phi_name );
  title ( phi_name_tex, 'FontSize', 24 )
  grid on
  hold off
  filename = sprintf ( 'one_rbf_%s.png', phi_name );
  print ( '-dpng', filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Created plot file "%s".\n', filename );

  return
end
