22-May-2023 12:41:30

r8utp_test():
  MATLAB/Octave version 5.2.0
  Test r8utp().

r8ge_to_r8utp_test():
  r8ge_to_r8utp() converts an R8GE matrix to R8UTP format.

  The R8GE matrix:
   11   12   13   14
   21   22   23   24
   31   32   33   34
   41   42   43   44
   51   52   53   54

  The R8UTP matrix:

  Col:       1             2             3             4       
  Row
  ---
   1            11            12            13            14  
   2             0            22            23            24  
   3             0             0            33            34  
   4             0             0             0            44  
   5             0             0             0             0  

r8utp_det_test():
  r8utp_det() computes the determinant of an R8UTP matrix.

  The matrix A:

  Col:       1             2             3             4             5       
  Row
  ---
   1             1             2             4             7            11  
   2             0             3             5             8            12  
   3             0             0             6             9            13  
   4             0             0             0            10            14  
   5             0             0             0             0            15  

  Determinant is 2700

r8utp_indicator_test():
  r8utp_indicator() sets up an indicator matrix in R8UTP format

  Matrix rows M =    5
  Matrix columns N = 4

  The indicator matrix:

  Col:       1             2             3             4       
  Row
  ---
   1            11            12            13            14  
   2             0            22            23            24  
   3             0             0            33            34  
   4             0             0             0            44  
   5             0             0             0             0  

r8utp_print_test():
  r8utp_print() prints an R8UTP matrix.

  Matrix rows M =    6
  Matrix columns N = 4

  The R8UTP matrix:

  Col:       1             2             3             4       
  Row
  ---
   1            11            12            13            14  
   2             0            22            23            24  
   3             0             0            33            34  
   4             0             0             0            44  
   5             0             0             0             0  
   6             0             0             0             0  

r8utp_print_some_test():
  r8utp_print_some() prints some of an R8UTP matrix.

  Matrix rows M =    4
  Matrix columns N = 6

  Some of the matrix:

  Col:       4             5             6       
  Row
  ---
   1            14            15            26  
   2            24            25            36  
   3            34            35            46  

r8utp_random_test():
  r8utp_random() randomizes an R8UTP matrix.

  Matrix order M = 5, N = 4, 
  Matrix A:

  Col:       1             2             3             4       
  Row
  ---
   1      0.848566      0.876816     0.0500204     0.0563041  
   2             0      0.518119      0.915504      0.173766  
   3             0             0    0.00535111      0.696891  
   4             0             0             0      0.513162  
   5             0             0             0             0  

r8utp_size_test():
  r8utp_size() computes the storage needed for an R8UTP matrix.

   M   N   Size  Size(check)

   4   3   6   6
   4   4  10  10
   4   6  18  18

r8utp_to_r8ge_test():
  r8utp_to_r8ge() converts an R8UTP matrix to R8GE format.

  The random R8UTP matrix:

  Col:       1             2             3             4       
  Row
  ---
   1       0.19525      0.800433      0.663525      0.834321  
   2             0      0.296695      0.465537     0.0554734  
   3             0             0     0.0712176      0.420747  
   4             0             0             0       0.21592  
   5             0             0             0             0  

  The R8GE matrix:
   0.19525   0.80043   0.66352   0.83432
   0.00000   0.29670   0.46554   0.05547
   0.00000   0.00000   0.07122   0.42075
   0.00000   0.00000   0.00000   0.21592
   0.00000   0.00000   0.00000   0.00000

r8utp_zeros_test():
  r8utp_zeros() zeros out space for an R8UTP matrix.

  Matrix order M, N = 5, 4

  Matrix A:

  Col:       1             2             3             4       
  Row
  ---
   1             0             0             0             0  
   2             0             0             0             0  
   3             0             0             0             0  
   4             0             0             0             0  
   5             0             0             0             0  

r8utp_test():
  Normal end of execution.

22-May-2023 12:41:30