搜搜做题作业网Mathematica 如何生成这个矩阵?
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/04/30 03:16:39
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}}
如何生成这个矩阵?
例如把元素为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, {Length@s - 1}], #, #2] & @@@
Thread[List[s, Range[Length@s]]])
楼主,我只是想换个头像.>_>.
Thread[List[s, Range[Length@s]]])
楼主,我只是想换个头像.>_>.