根据方程系数创建矩阵

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}