function degree_eight_test ( )

%*****************************************************************************80
%
%% DEGREE_EIGHT_TEST compares several methods that reach degree 8.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    09 September 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'DEGREE_EIGHT_TEST:\n' );
  fprintf ( 1, '  Plot index sets for various methods that reach degree 8.\n' );
  fprintf ( 1, '\n' );
%
%  Total degree <= 8.
%
  m = 10;
  title_string = 'Total degree <= 8';
  cube_display ( m, @(x,y,z)x+y+z<=-1, @(x,y,z)x+y+z<=8, title_string );
  filename = 'degree8_total.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Created "%s".\n', filename );
%
%  Maximum degree <= 8.
%
  m = 10;
  title_string = 'Maximum degree <= 8';
  cube_display ( m, @(x,y,z)x+y+z<=-1, @(x,y,z)max([x,y,z])<=8, title_string );
  filename = 'degree8_max.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Created "%s".\n', filename );
%
%  Hyperbolic cross.
%
  m = 10;
  title_string = 'Hyperbolic cross degree <= 8';
  cube_display ( m, @(x,y,z)x+y+z<=-1, @(x,y,z)(x+1)*(y+1)*(z+1)<=27, title_string );
  filename = 'degree8_hyper.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Created "%s".\n', filename );
%
%  Clenshaw-Curtis sparse grid.
%
  m = 10;
  title_string = 'Clenshaw Curtis degree <= 8';
  cube_display ( m, @(x,y,z)x+y+z<=-1, @cc_3, title_string );
  filename = 'degree8_cc.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Created "%s".\n', filename );
%
%  Smolyak: Log2(x) + Log2(y) <= Log2(L)
%
  m = 10;
  title_string = 'Log2(x)+Log2(y)+Log2(z) <= Log2(8)';
  cube_display ( m, @(x,y,z)x+y+z<=-1, @(x,y,z)log2(max(x,1))+log2(max(y,1))+log2(max(z,1))<=log2(8.1), title_string );
  filename = 'degree8_smolyak.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Created "%s".\n', filename );

  return
end
