15-May-2025 20:34:28 r8ut_test(): MATLAB/Octave version 6.4.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.266197 0.298403 0.0252904 0.556015 2 0.824624 0.715614 0.868214 0.179947 3 0.31803 0.688451 0.565104 0.174625 4 0.15758 0.501107 0.86382 0.620127 5 0.18715 0.285495 0.565192 0.483015 The R8UT matrix: Col: 1 2 3 4 Row --- 1 0.266197 0.298403 0.0252904 0.556015 2 0.715614 0.868214 0.179947 3 0.565104 0.174625 4 0.620127 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.0219186 0.66144 0.140694 0.82289 0.247211 2 0.0779715 0.380512 0.407269 0.950337 3 0.435949 0.178905 0.986717 4 0.292473 0.556645 5 0.622352 Determinant is 0.000135614 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.881523 0.3993 0.805872 0.320889 0.070727 2 0.397209 0.789272 0.806061 0.371157 3 0.495522 0.457679 0.948169 4 0.784442 0.199326 5 0.162947 The inverse matrix B: Col: 1 2 3 4 5 Row --- 1 1.1344 -1.14037 -0.0284913 0.724378 1.38481 2 2.51757 -4.01001 -0.247331 17.9018 3 2.01808 -1.17744 -10.3026 4 1.27479 -1.55939 5 6.13695 The product A * B: Col: 1 2 3 4 5 Row --- 1 1 0 0 -5.55112e-17 7.77156e-16 2 1 0 0 0 3 1 0 0 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.318121 0.697215 0.68874 0.735817 2 0.288187 0.484491 0.219649 3 0.865465 0.816639 4 0.803371 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.0430586 0.327475 0.0221391 0.606695 2 0.123293 0.0384738 0.980822 3 0.583874 0.195452 4 0.0297969 5 The R8GE matrix: Col: 1 2 3 4 Row --- 1 0.0430586 0.327475 0.0221391 0.606695 2 0 0.123293 0.0384738 0.980822 3 0 0 0.583874 0.195452 4 0 0 0 0.0297969 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. 15-May-2025 20:34:28