function hyperbolic_cross_test ( )

%*****************************************************************************80
%
%% HYPERBOLIC_CROSS_TEST plots hyperbolic cross index sets.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    09 September 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'HYPERBOLIC_CROSS_TEST:\n' );
  fprintf ( 1, '  Plot hyperbolic cross index sets.\n' );
  fprintf ( 1, '\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 8';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=1, @(x,y,z)(x+1)*(y+1)*(z+1)<=8, title_string );
  print ( '-dpng', 'hc1.png' );
  fprintf ( 1, '  Created "hc1.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 27';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=8, @(x,y,z)(x+1)*(y+1)*(z+1)<=27, title_string );
  print ( '-dpng', 'hc2.png' );
  fprintf ( 1, '  Created "hc2.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 64';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=27, @(x,y,z)(x+1)*(y+1)*(z+1)<=64, title_string );
  print ( '-dpng', 'hc3.png' );
  fprintf ( 1, '  Created "hc3.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 125';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=64, @(x,y,z)(x+1)*(y+1)*(z+1)<=125, title_string );
  print ( '-dpng', 'hc4.png' );
  fprintf ( 1, '  Created "hc4.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 216';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=125, @(x,y,z)(x+1)*(y+1)*(z+1)<=216, title_string );
  print ( '-dpng', 'hc5.png' );
  fprintf ( 1, '  Created "hc5.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 343';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=216, @(x,y,z)(x+1)*(y+1)*(z+1)<=343, title_string );
  print ( '-dpng', 'hc6.png' );
  fprintf ( 1, '  Created "hc6.png".\n' );

  m = 20;
  title_string = '(X+1)*(Y+1)*(Z+1) <= 512';
  cube_display ( m, @(x,y,z)(x+1)*(y+1)*(z+1)<=343, @(x,y,z)(x+1)*(y+1)*(z+1)<=512, title_string );
  print ( '-dpng', 'hc7.png' );
  fprintf ( 1, '  Created "hc7.png".\n' );

  return
end
