如何用mathematica创建n度身份矩阵？

Question

如何使用 mathematica制作n度身份矩阵....

设置id [n]：= ????? - ＆GT;执行id [2]（Shift + enter） - ＆gt;获取{1,0}，{0,1}（2X2身份矩阵）

不使用命令（IdentityMatrix，DiagonalMatrix，Inverse，SparseArray）。

Answer 1

degree = 4;

id = Reverse@Sort@Select[Tuples[{0, 1}, degree], Total[#] == 1 &];

id == IdentityMatrix[degree]

  

真