function bslashtx_test ( )

%*****************************************************************************80
%
%% bslashtx_test tests bslashtx.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    04 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'bslashtx_test\n' );
  fprintf ( 1, '  bslashtx solves a linear system.\n' );
%
%  Set the array.
%
  A = [ 1, 2, 3; ...
        4, 5, 6; ...
        7, 8, 0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Matrix A:\n' );
  fprintf ( 1, '\n' );
  disp ( A );
%
%  Set the right hand side as a column vector.
%
  b = [ 14; 32; 23 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Right hand side b:\n' );
  fprintf ( 1, '\n' );
  disp ( b );
%
%  Request the solution of A*x=b.
%
  x = bslashtx ( A, b );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  x = bslashtx ( A, b ):\n' );
  fprintf ( 1, '\n' );
  disp ( x );

  return
end

