创建NxN矩阵mathematica

Question

在Mathematica中生成NxN矩阵有点麻烦.给定N的值,我需要构造如下所示的NxN矩阵:

N = Input["Enter value for N:"];
matrix = ConsantArray[0,{N,N}];
Do[matrix[[i,j]] =   **"???"**  ,{i,N}, {j,N}]
matrix // Matrix Form

我不知道在Do-Loop中应该怎么做.任何帮助都会很感激.

Answer 1

您可以创建一维数组[1 ... n ² ],然后重新整形或将其分区为矩阵.

matrix = ArrayReshape[Range[n^2], {n, n}]

(* also works: *)
matrix = Partition[Range[n^2], n]