C 代码 包含 R8ROW 的实用程序例程，即 一个双精度实 MxN 数组，被视为 M 行向量.rar

21 January 2020 08:37:50 AM R8ROW_TEST C version Test the R8ROW library. R8ROW_COMPARE_TEST R8ROW_COMPARE compares rows of an R8ROW, returning -1, 0 or +1 for comparison. Matrix A: Col: 0 1 2 3 4 Row 0: 2 0 1 2 0 1: 0 1 2 0 1 2: 1 2 0 1 2 3: 2 0 1 2 0 4: 0 1 2 0 1 5: 1 2 0 1 2 C(I,J) = Row I compare Row J: Col: 0 1 2 3 4 5 Row 0: 0 1 1 0 1 1 1: -1 0 -1 -1 0 -1 2: -1 1 0 -1 1 0 3: 0 1 1 0 1 1 4: -1 0 -1 -1 0 -1 5: -1 1 0 -1 1 0 R8ROW_INDICATOR_NEW_TEST R8ROW_INDICATOR_NEW returns the indicator matrix as an R8ROW. The indicator matrix: Col: 0 1 2 3 Row 0: 11 12 13 14 1: 21 22 23 24 2: 31 32 33 34 3: 41 42 43 44 4: 51 52 53 54 R8ROW_MAX_TEST R8ROW_MAX computes maximums of an R8ROW. The original matrix: Col: 0 1 2 3 Row 0: 1 2 3 4 1: 5 6 7 8 2: 9 10 11 12 Row maximums: 0: 4 1: 8 2: 12 R8ROW_MEAN_TEST R8ROW_MEAN computes means of an R8ROW. The original matrix: Col: 0 1 2 3 Row 0: 1 2 3 4 1: 5 6 7 8 2: 9 10 11 12 The row means: 0: 2.5 1: 6.5 2: 10.5 R8ROW_MIN_TEST R8ROW_MIN computes minimums of an R8ROW. The original matrix: Col: 0 1 2 3 Row 0: 1 2 3 4 1: 5 6 7 8 2: 9 10 11 12 Row minimums: 0: 1 1: 5 2: 9 R8ROW_PRINT_TEST R8ROW_PRINT prints an R8ROW. The matrix: Col: 0 1 2 3 Row 0: 11 12 13 14 1: 21 22 23 24 2: 31 32 33 34 3: 41 42 43 44 4: 51 52 53 54 5: 61 62 63 64 R8ROW_PRINT_SOME_TEST R8ROW_PRINT_SOME prints some of an R8ROW. Rows 2:4, Cols 1:2: Col: 0 1 Row 1: 21 22 2: 31 32 3: 41 42 R8ROW_RUNNING_AVERAGE_TEST R8ROW_RUNNING_AVERAGE returns M sets of running averages of an MxN R8ROW. Random R8ROW: Col: 0 1 2 3 4 Row 0: -1.72373 -4.00822 -4.07409 -4.97242 7.88645 1: 9.34476 -1.13633 1.74308 8.46256 7.61271 2: 7.44264 -3.35065 1.01959 0.261285 -3.15344 3: 3.42543 -4.34257 6.3201 -3.58183 -4.88731 4: 1.22961 4.50949 6.9593 -4.79575 -1.09546 Col: 5 6 7 8 9 Row 0: 8.68726 5.381 3.96875 3.61549 5.71707 1: -3.29504 3.42494 -2.16568 0.5054 -3.2344 2: 0.27443 7.91824 6.42238 4.25807 -0.510063 3: 7.34331 1.80691 0.954827 0.422931 7.37504 4: -0.993016 8.67966 -2.22029 -1.80605 7.3699 Running averages: Col: 0 1 2 3 4 Row 0: 0 -1.72373 -2.86597 -3.26868 -3.69462 1: 0 9.34476 4.10422 3.31717 4.60352 2: 0 7.44264 2.046 1.70386 1.34322 3: 0 3.42543 -0.458567 1.80099 0.455285 4: 0 1.22961 2.86955 4.2328 1.97566 Col: 5 6 7 8 9 Row 0: -1.3784 0.299208 1.02518 1.39312 1.64005 1: 5.20536 3.78862 3.73667 2.99888 2.72182 2: 0.443886 0.415643 1.48744 2.10431 2.34362 3: -0.613235 0.712856 0.869149 0.879859 0.829089 4: 1.36144 0.96903 2.07055 1.53419 1.16306 Col: 10 Row 0: 2.04776 1: 2.1262 2: 2.05825 3: 1.48368 4: 1.78374 R8ROW_RUNNING_SUM_TEST R8ROW_RUNNING_SUM returns the M running sums of an R8ROW. Random R8ROW: Col: 0 1 2 3 4 Row 0: -1.72373 -4.00822 -4.07409 -4.97242 7.88645 1: 9.34476 -1.13633 1.74308 8.46256 7.61271 2: 7.44264 -3.35065 1.01959 0.261285 -3.15344 3: 3.42543 -4.34257 6.3201 -3.58183 -4.88731 4: 1.22961 4.50949 6.9593 -4.79575 -1.09546 Col: 5 6 7 8 9 Row 0: 8.68726 5.381 3.96875 3.61549 5.71707 1: -3.29504 3.42494 -2.16568 0.5054 -3.2344 2: 0.27443 7.91824 6.42238 4.25807 -0.510063 3: 7.34331 1.80691 0.954827 0.422931 7.37504 4: -0.993016 8.67966 -2.22029 -1.80605 7.3699 Running sums: Col: 0 1 2 3 4 Row 0: 0 -1.72373 -5.73194 -9.80604 -14.7785 1: 0 9.34476 8.20843 9.95151 18.4141 2: 0 7.44264 4.09199 5.11158 5.37287 3: 0 3.42543 -0.917133 5.40297 1.82114 4: 0 1.22