Mathematica 如何生成这个矩阵?

Mathematica 如何生成这个矩阵?
如何生成这个矩阵?
例如把元素为3的表插入0后生成元素为6的表.
输入: s1={{a1,a2,a3},{a4,a5,a6},{a7,a8,a9},{a10,a11,a12}};
输出: s2={{a1,a2,a3,0,0,0},{0,a4,a5,a6,0,0},{0,0,a7,a8,a9,0},{0,0,0,0,a10,a11,a12}}

f[s_] := Flatten /@ (Insert[Table[0, [email protected] - 1}], #, #2] & @@@
Thread[List[s, Range[[email protected]]]])
楼主,我只是想换个头像.>_>.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息