function test_type ( )

%*****************************************************************************80
%
%% test_type() tests functions which test the type of a matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 July 2013
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'test_type():\n' );
  fprintf ( 1, '  Demonstrate functions which test the type of a matrix.\n' );
%
%  TRANSITION.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Title                    M     N     ||A||            ||Transition Error||\n' );
  fprintf ( 1, '\n' );

  title = 'bodewig';
  m = 4;
  n = 4;
  a = bodewig_matrix ( );
  error_frobenius = r8mat_is_transition ( m, n, a );
  norm_frobenius = norm ( a, 'fro' );
  fprintf ( 1, '  %-20s  %4d  %4d  %14g  %14g\n', ...
    title, m, n, norm_frobenius, error_frobenius );

  title = 'snakes';
  m = 101;
  n = 101;
  a = snakes_matrix ( );
  error_frobenius = r8mat_is_transition ( m, n, a );
  norm_frobenius = norm ( a, 'fro' );
  fprintf ( 1, '  %-20s  %4d  %4d  %14g  %14g\n', ...
    title, m, n, norm_frobenius, error_frobenius );

  title = 'transition_random';
  m = 5;
  n = 5;
  key = 123456789;
  a = transition_random_matrix ( n, key );
  error_frobenius = r8mat_is_transition ( m, n, a );
  norm_frobenius = norm ( a, 'fro' );
  fprintf ( 1, '  %-20s  %4d  %4d  %14g  %14g\n', ...
    title, m, n, norm_frobenius, error_frobenius );

  return
end
