function box_behnken_test01 ( )

%*****************************************************************************80
%
%% box_behnken_test01() tests box_behnken().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 October 2008
%
%  Author:
%
%    John Burkardt
%
  dim_num = 3;

  range = [ ...
    0.0,  1.0; ...
   10.0, 11.0; ...
    5.0, 15.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'box_behnken_test01():\n' );
  fprintf ( 1, '  box_behnken() computes a Box-Behnken dataset.\n' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The ranges:\n' );
  disp ( range );

  x_num = box_behnken_size ( dim_num );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  For dimension DIM_NUM = %d\n', dim_num );
  fprintf ( 1, ' the Box-Behnken design is of size %d\n', x_num );

  x = box_behnken ( dim_num, x_num, range );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The Box-Behnken design:' );
  disp ( x' );

  return
end
