从方程的系数创建矩阵

Question

给定这些方程

eqn1 = 5 x1 + 2 x2 + 3 x3 == 8
eqn2 = 4 x1 + 7 x2 + 9 x3 == 5
eqn3 = 6 x1 +   x2 + 9 x3 == 2

如何提取x1, x2, x3的系数组成矩阵？

我尝试使用CoefficientArrays，但输出以SparseArray的形式给出。

Answer 1

试试Normal

(Normal[CoefficientArrays[{eqn1, eqn2, eqn3}, {x1, x2, x3}]][[2]]) // MatrixForm

​

​

Answer 2

我不喜欢Normal

Coefficient[# /. Equal[e_, _] -> e, {x1, x2, x3}] & /@ {eqn1, eqn2, eqn3}

简短但不清晰：

Coefficient[First@#, {x1, x2, x3}] & /@ {eqn1, eqn2, eqn3}