Question

我是Mathematica的初学者并向Google学习。

我试图找到4 * 4矩阵的行列式。

TT = {{ap, b, c, d}, {e, fp, g, h}, {i, j, kp, l}, {m, n, o, pq}}
TT // MatrixForm

之后，我应用了决定性命令。

Det[TT]

我得到的结果如下，

d g j m - c h j m - d fp kp m + b h kp m + c fp l m - b g l m -  d g i n + c h i n + d e kp n - ap h kp n - c e l n + ap g l n + d fp i o - b h i o - d e j o + ap h j o + b e l o - ap fp l o -  c fp i pq + b g i pq + c e j pq - ap g j pq - b e kp pq + ap fp kp pq

我想将上面的表达式作为p中的多项式，想要分别收集系数。我尝试了各种命令，例如Collect，Factor等。但每次我得到的答案都是与上面相同的多项式。

Answer 1

我假设您有a*p，f*p，k*p，p*q，而不是ap，fp，kp和pq。

Mathematica需要空格或多个符号才能将它们视为单独的乘数，而不是变量。

t = {{a p, b, c, d}, {e, f p, g, h}, {i, j, k p, l}, {m, n, o,
     p q}};
Collect[Det[t], p]
(* d g j m - c h j m - b g l m - d g i n + c h i n - c e l n - 
 b h i o - d e j o + b e l o + a f k p^4 q + 
 p (b h k m + c f l m + d e k n + a g l n + d f i o + a h j o + 
    b g i q + c e j q) + 
 p^2 (-d f k m - a h k n - a f l o - c f i q - a g j q - b e k q) *)

指数没有得到补充

1 个答案: