15 August 2022 05:04:29 PM

r8utp_test():
  C version
  Test r8utp().

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

  The random R8GE matrix:

  Col:          1             2             3             4       
  Row
  ---
    1            11            12            13            14  
    2            21            22            23            24  
    3            31            32            33            34  
    4            41            42            43            44  
    5            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.

  The 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.

  The 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.

  Some of the matrix:

  Col:       3             4             5       
  Row
  ---
     1            13            14            15  
     2            23            24            25  

r8utp_random_test()
  r8utp_random() randomizes an r8utp matrix.

  Matrix order M, N = 5, 4

  Matrix A:

  Col:       1             2             3             4       
  Row
  ---
     1     0.0524685     0.0254442       0.43613      0.560493  
     2             0      0.099272       0.32774     0.0181571  
     3             0             0      0.821202      0.872758  
     4             0             0             0      0.652496  
     5             0             0             0             0  

r8utp_size_test()
  r8utp_size() finds 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.

  r8utp matrix:

  Col:       1             2             3             4       
  Row
  ---
     1      0.243674      0.806049      0.593938      0.650013  
     2             0      0.728491      0.784829     0.0134265  
     3             0             0      0.165176      0.757511  
     4             0             0             0       0.10352  
     5             0             0             0             0  

  R8GE matrix

  Col:          1             2             3             4       
  Row
  ---
    1      0.243674      0.806049      0.593938      0.650013  
    2             0      0.728491      0.784829     0.0134265  
    3             0             0      0.165176      0.757511  
    4             0             0             0       0.10352  
    5             0             0             0             0  

r8utp_zeros_test()
  r8utp_zeros() returns a zeroed out 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.

15 August 2022 05:04:29 PM