Question

Mathematica 如何把多项式系数生成一个矩阵?

如何把多项式系数生成一个矩阵? 例如 :
输入 :
s1 = {x1 + x2 + x4, 2 x2 + 3 x3 + 4 x4, x1 + x2 + x3 + x4};
输出 :
s2 = {{1, 1, 0, 1}, {0, 2, 3, 4}, {1, 2, 3, 4}}
显然, 矩阵s2中第1列是x1的系数, 第2列是x2的系数, 第n列是xn的系数.谢谢!

Answer 1

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，为什么不学习一下！

Answer 2

Mathematica9中
Normal[CoefficientArrays[{x1 + x2 + x4, 2 x2 + 3 x3 + 4 x4, x1 + x2 + x3 + x4}, {x1, x2, x3, x4}]][[2]]