14-Aug-2022 10:57:58

r8utp_test():
  MATLAB/Octave version 9.8.0.1380330 (R2020a) Update 2
  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.655484      0.531908      0.602418     0.0733451  
   2             0      0.733131       0.83203      0.446908  
   3             0             0      0.834646      0.910811  
   4             0             0             0      0.923807  
   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.991776      0.945821     0.0770436       0.71218  
   2             0      0.428399      0.829498      0.776533  
   3             0             0      0.862861      0.292607  
   4             0             0             0      0.569457  
   5             0             0             0             0  

  The R8GE matrix:
    0.9918    0.9458    0.0770    0.7122
         0    0.4284    0.8295    0.7765
         0         0    0.8629    0.2926
         0         0         0    0.5695
         0         0         0         0


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.

14-Aug-2022 10:57:59