从方程系数创建矩阵

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[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}