function sintv_test ( )

%*****************************************************************************80
%
%% sintv_test() tests sintv() and isintv on a random data matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 April 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'sintv_test():\n' );
  fprintf ( 1, '  sintv() applies a sine transform to a data matrix U\n' );
  fprintf ( 1, '  whose first dimension is of the form 2^k-1.\n' );
  fprintf ( 1, '  isintv() inverts a sine transform.\n' );

  disp ( '' );
  disp ( '  Original data U:\n' );
  u = rand ( 2^4-1, 5 );

  disp ( '  Z = sintv ( U ):\n' );
  z = sintv ( u );

  disp ( '  U2 = isintv ( Z ):\n' );
  u2 = isintv ( z );

  return
end
