function two_rbf ( phi, phi_name )

%*****************************************************************************80
%
%% TWO_RBF displays a two radial basis functions.
%
%  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 = +10.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 = 1.0;

  m = 1;
  nd = 2;
  xd = [ 0.0, 5.0 ]';

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

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

  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 ( 'two_rbf_%s.png', phi_name );
  print ( '-dpng', filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Created plot file "%s".\n', filename );

  return
end
