第五题--生成各种矩阵的方式
- Clear["Global`*"];
- e = IdentityMatrix[3];(*生成单位矩阵*)
- r = RandomReal[3, {3, 2}];
- o = Table[0, {2}, {3}];
- s = DiagonalMatrix[{k1, k2}];(*生成对角矩阵*)
- a = ArrayFlatten[{{e, r}, {o, s}}];
- aa = a.a;
- aaa = ArrayFlatten[{{e, r + r.s}, {o, s.s}}];
- Column[MatrixForm[#] & /@ {e, r, o, s, a, aa, aaa, aa - aaa},
- Spacings -> 1.5]
- 微信公众号
- 关注微信公众号
- QQ群
- 我们的QQ群号
评论