function lebesgue_equidistant1_test ( )

%*****************************************************************************80
%
%% lebesgue_equidistant1_test() looks at Equidistant1 points.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 January 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'LEBESGUE_EQUIDISTANT1_TEST:\n' );
  fprintf ( 1, '  Analyze Equidistant1 points.\n' );

  n_max = 11;
  l = zeros ( n_max, 1 );
  xfun = linspace ( -1.0, +1.0, 501 );
  xfun = xfun';

  for n = 1 : n_max
    x = equidistant1 ( n );
    l(n) = lebesgue_constant ( n, x, xfun );
  end

  r8vec_print ( n_max, l, '  Equidistant1 Lebesgue constants for N = 1 to 11:' )
%
%  Examine one case more closely.
%
  n = 11;
  x = equidistant1 ( n );
  r8vec_print ( n, x, '  Equidistant1 points for N = 11' );

  label = 'Equidistant1 points for N = 11';
  filename = 'equidistant1.png';
  lebesgue_plot ( n, x, xfun, label, filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Plot file saved as "%s"\n', filename );

  return
end

