function table = r8mat_indicator ( m, n ) %% R8MAT_INDICATOR sets up an indicator R8MAT. % % Discussion: % % The value of each entry suggests its location, as in: % % 11 12 13 14 % 21 22 23 24 % 31 32 33 34 % % Modified: % % 25 January 2005 % % Author: % % John Burkardt % % Parameters: % % Input, integer M, the number of rows of the matrix. % M must be positive. % % Input, integer N, the number of columns of the matrix. % N must be positive. % % Output, real TABLE(M,N), the indicator table. % fac = 10^( i4_log_10 ( n ) + 1 ); for i = 1 : m for j = 1 : n table(i,j) = fac * i + j; end end