function polygon_side_data_test ( )

%*****************************************************************************80
%
%% POLYGON_SIDE_DATA_TEST tests POLYGON_SIDE_DATA;
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    15 October 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'POLYGON_SIDE_DATA_TEST\n' );
  fprintf ( 1, '  POLYGON_SIDE_DATA uses the side length of a regular polygon\n' );
  fprintf ( 1, '  to compute the area, inradius, and outradius.\n' );

  for n = 3 : 5

    fprintf ( 1, '\n' );
    fprintf ( 1, '  Number of polygonal sides = %d\n', n );

    side = 1.0;
    fprintf ( 1, '\n' );
    fprintf ( 1, '  Assuming SIDE = %g\n', side );
    [ area, radin, radout ] = polygon_side_data ( n, side );
    fprintf ( 1, '    AREA =   %g\n', area );
    fprintf ( 1, '    RADIN =  %g\n', radin );
    fprintf ( 1, '    RADOUT = %g\n', radout );

  end

  return
end
