Извлечь коэффициент x ^ k из вычисленного выражения Рякаса

Question

Я получил выражение Рякаса, как это, и я хочу извлечь коэффициент х ^ 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)