s1 = {x1 + x2 + x4, 2 x2 + 3 x3 + 4 x4, x1 + x2 + x3 + x4};
s2 = Normal@CoefficientArrays[s1, {x1, x2, x3, x4}][[2]]
我肯定记得跟你说过,将 Mathematica 的问题归类到编程语言下面,另外这个号显然跟以前的号 csdcm 是一个人,不能总有问题就拿上来问,既然你经常用到 Mathematica,为什么不学习一下!
Mathematica9中
Normal[CoefficientArrays[{x1 + x2 + x4, 2 x2 + 3 x3 + 4 x4, x1 + x2 + x3 + x4}, {x1, x2, x3, x4}]][[2]]