function hypersphere_test05 ( )

%*****************************************************************************80
%
%% hypersphere_test05() tests hypersphere_area(), hypersphere_volume().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 May 2013
%
%  Author:
%
%    John Burkardt
%
  r = 1.5;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'hypersphere_test05():\n' );
  fprintf ( 1, '  For a hypersphere in M dimensions:\n' );
  fprintf ( 1, '  hypersphere_area() computes the area;\n' );
  fprintf ( 1, '  hypersphere_volume() computes the volume.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Notice that both quantities eventually decrease!\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  We use a radius of R = %f\n', r );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    M        Area          Volume    Area / Volume \n' );
  fprintf ( 1, '\n' );

  for m = 1 : 20
    area = hypersphere_area ( m, r );
    volume = hypersphere_volume ( m, r );
    fprintf ( 1, '  %3d  %12g  %12g  %12g\n', m, area, volume, area / volume );
  end

  return
end
