从Ryacas计算的表达式中提取x ^ k的系数

Question

我得到了像这样的Ryacas表达式，我想提取x ^ 4,11的系数。我应该如何编写代码才能得到这个，谢谢。

Answer 1

希望这可以帮助：

x <- Sym("x")
P <- (x+1)*(x+2)*(x+3)
Expand(P)
# expression(x^3 + 6 * x^2 + 11 * x + 6)
# coefficient of x^2:
yacas("Coef((x+1)*(x+2)*(x+3), x, 2)")
# expression(6)
# or:
yacas(paste0("Coef(", P, ",x , 2)"))
# expression(6)