22-May-2023 12:23:13 r8ut_test(): MATLAB/Octave version 5.2.0 Test r8ut(). r8ge_to_r8ut_test(): r8ge_to_r8ut() converts an R8GE matrix to R8UT format. The random R8GE matrix: Col: 1 2 3 4 Row --- 1 0.727872 0.596101 0.0814121 0.583464 2 0.231146 0.625295 0.999639 0.98515 3 0.0397348 0.488859 0.829536 0.111569 4 0.348977 0.0446184 0.545559 0.932639 5 0.796147 0.601306 0.902375 0.345539 The R8UT matrix: Col: 1 2 3 4 Row --- 1 0.727872 0.596101 0.0814121 0.583464 2 0.625295 0.999639 0.98515 3 0.829536 0.111569 4 0.932639 5 r8ut_det_test(): r8ut_det() computes the determinant of an R8UT matrix. The matrix A: Col: 1 2 3 4 5 Row --- 1 0.572413 0.595748 0.34483 0.575016 0.734946 2 0.567952 0.476959 0.129458 0.249421 3 0.938207 0.047533 0.602307 4 0.581972 0.0532184 5 0.57048 Determinant is 0.101266 r8ut_indicator_test(): r8ut_indicator() sets up an indicator matrix in R8UT format Matrix rows M = 5 Matrix columns N = 4 The indicator matrix: Col: 1 2 3 4 Row --- 1 11 12 13 14 2 22 23 24 3 33 34 4 44 5 r8ut_inverse_test(): r8ut_inverse() computes the inverse of an R8UT matrix. The matrix A: Col: 1 2 3 4 5 Row --- 1 0.342927 0.394817 0.8574 0.628688 0.562067 2 0.640867 0.813872 0.417517 0.553013 3 0.324952 0.554451 0.0464275 4 0.34734 0.506786 5 0.931009 The inverse matrix B: Col: 1 2 3 4 5 Row --- 1 2.91608 -1.7965 -3.1947 1.98097 -1.61239 2 1.56039 -3.90813 4.36282 -3.10683 3 3.07738 -4.91235 2.52053 4 2.87902 -1.56717 5 1.0741 The product A * B: Col: 1 2 3 4 5 Row --- 1 1 0 0 2.22045e-16 0 2 1 0 0 2.22045e-16 3 1 0 -1.38778e-17 4 1 0 5 1 r8ut_mm_test(): r8ut_mm() computes C = A * B for R8UT matrices. The matrix A: Col: 1 2 3 4 5 Row --- 1 1 1 1 1 1 2 1 1 1 1 3 1 1 1 4 1 1 5 1 The product C = A * A Col: 1 2 3 4 5 Row --- 1 1 2 3 4 5 2 1 2 3 4 3 1 2 3 4 1 2 5 1 r8ut_mtm_test(): r8ut_mtm() computes C = A' * B for R8UT matrices. The matrix A: Col: 1 2 3 4 5 Row --- 1 1 1 1 1 1 2 1 1 1 1 3 1 1 1 4 1 1 5 1 The product C = A' * A Col: 1 2 3 4 5 Row --- 1 1 1 1 1 1 2 1 2 2 2 2 3 1 2 3 3 3 4 1 2 3 4 4 5 1 2 3 4 5 r8ut_mtv_test(): r8ut_mtv() computes a matrix product b=A'*x for an R8UT matrix. The matrix A: Col: 1 2 3 4 Row --- 1 11 12 13 14 2 22 23 24 3 33 34 4 44 5 The vector X: 1: 1 2: 2 3: 3 4: 4 5: 5 The vector b=A'*x: 1: 11 2: 56 3: 158 4: 340 r8ut_mv_test(): r8ut_mv() computes a product b=A*x for an R8UT matrix. The R8UT matrix A: Col: 1 2 3 4 Row --- 1 11 12 13 14 2 22 23 24 3 33 34 4 44 5 Vector x: 1: 1 2: 2 3: 3 4: 4 Vector b = A*x: 1: 130 2: 209 3: 235 4: 176 5: 0 r8ut_print_test(): r8ut_print() prints an R8UT matrix. Matrix rows M = 6 Matrix columns N = 4 The R8UT matrix: Col: 1 2 3 4 Row --- 1 11 12 13 14 2 22 23 24 3 33 34 4 44 5 6 r8ut_print_some_test(): r8ut_print_some() prints some of an R8UT matrix. Matrix rows M = 4 Matrix columns N = 6 Some of the matrix: Col: 4 5 6 Row --- 1 14 15 16 2 24 25 26 3 34 35 36 r8ut_random_test(): r8ut_random() randomizes an R8UT matrix. Matrix order M, N = 5, 4 Matrix A: Col: 1 2 3 4 Row --- 1 0.730089 0.352499 0.241702 0.780774 2 0.1314 0.342239 0.952117 3 0.773485 0.925511 4 0.476923 5 r8ut_sl_test(): r8ut_sl() solves a linear system A*x=b with R8UT matrix; Matrix order N = 5 The upper triangular matrix: Col: 1 2 3 4 5 Row --- 1 1 2 3 4 5 2 2 3 4 5 3 3 4 5 4 4 5 5 5 Solution: 1: 1 2: 2 3: 3 4: 4 5: 5 r8ut_slt_test(): r8ut_slt() solves a linear system A'x=b with R8UT matrix; Matrix order N = 5 The upper triangular matrix: Col: 1 2 3 4 5 Row --- 1 1 2 3 4 5 2 2 3 4 5 3 3 4 5 4 4 5 5 5 Solution to transposed system: 1: 1 2: 2 3: 3 4: 4 5: 5 r8ut_to_r8ge_test(): r8ut_to_r8ge() converts an R8UT matrix to R8GE format. The random R8UT matrix: Col: 1 2 3 4 Row --- 1 0.341399 0.379694 0.743518 0.308702 2 0.198759 0.300185 0.262938 3 0.682963 0.802974 4 0.6199 5 The R8GE matrix: Col: 1 2 3 4 Row --- 1 0.341399 0.379694 0.743518 0.308702 2 0 0.198759 0.300185 0.262938 3 0 0 0.682963 0.802974 4 0 0 0 0.6199 5 0 0 0 0 r8ut_zeros_test(): r8ut_zeros() zeros out space for an R8UT matrix. Matrix order M, N = 5, 4 Matrix A: Col: 1 2 3 4 Row --- 1 0 0 0 0 2 0 0 0 3 0 0 4 0 5 r8ut_test(): Normal end of execution. 22-May-2023 12:23:13