Matrix 创建NxN矩阵mathematica

在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循环中我的语句应该是什么。任何帮助都将不胜感激。

您可以创建一个1D数组[1…n2]，然后将其重塑或分割为矩阵

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

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

---

您可以创建一个一维数组[1…n2]，然后将其重塑或分割为矩阵

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

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

还有两种方法

matrix=Table[j+(i-1) n,{i,n},{j,n}]

matrix=Array[#2+(#1-1) n &,{n,n}]

表格表单也应该给出如何修复Do的线索，但从性能角度看，这通常是一种糟糕的方法

不要用大写N作为保留符号

还有两种方法

matrix=Table[j+(i-1) n,{i,n},{j,n}]

matrix=Array[#2+(#1-1) n &,{n,n}]

表格表单也应该给出如何修复Do的线索，但从性能角度看，这通常是一种糟糕的方法

不要用大写N作为保留符号