创建 NxN 矩阵数学

【问题标题】：Create NxN matrix mathematica创建 NxN 矩阵数学
【发布时间】：2017-02-15 03:26:06
【问题描述】：

在 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 中的陈述应该如何处理。任何帮助将不胜感激。

【问题讨论】：

【解决方案1】：

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

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

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

【讨论】：

【解决方案2】：

还有更多方法。

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

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

Table 表单也应该提供如何修复 Do 的线索，但这通常是一种性能不佳的方法。

不要使用大写的N，因为它是保留符号。

【讨论】：