function t_polynomial_ab_test ( )

%*****************************************************************************80
%
%% T_POLYNOMIAL_AB_TEST tests T_POLYNOMIAL_AB.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    20 July 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'T_POLYNOMIAL_AB_TEST:\n' );
  fprintf ( 1, '  T_POLYNOMIAL_AB evaluates Chebyshev polynomials TAB(n,x)\n' );
  fprintf ( 1, '  shifted from [-1,+1] to the domain [A,B].\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Here, we will use the new domain [0,1]\n' );
  fprintf ( 1, '  and the desired maximum polynomial degree will be N = 5.\n' );

  a = 0.0;
  b = 1.0;
  m = 11;
  n = 5;
  xab = linspace ( a, b, m );
  
  v = t_polynomial_ab ( a, b, m, n, xab );

  r8mat_print ( m, n + 1, v, '  Tables of T values:' );

  return
end
