Mathematica:重构多项式系数

时间:2016-04-28 02:13:49

标签: wolfram-mathematica polynomials coefficients

我正在寻找一种放置多项式的方法:

x + 5x^2/2 + 3x^3 + 8x^4/3 + 43x^5/24 + 43x^6/48

更多" Taylor" -ish形式:

x/1! + 5x^2/2! + 18x^3/3! + 64x^4/4! + 215x^5/5! + 645x^6/6!

我的主要目标是能够从新表格中读取系数。即我对数字感兴趣:

1,5,18,64,215,645 etc..

1 个答案:

答案 0 :(得分:2)

此?

poly = x + 5 x^2/2 + 3 x^3 + 8 x^4/3 + 43 x^5/24 + 43 x^6/48;
Table[poly[[i]]/x^i*i!, {i, Length[poly]}]

给出了

{1, 5, 18, 64, 215, 645}