高分求一段简单的mathematica程序,计算一个高阶多项式的解

Mathematica代码如下：
co ={a, b, c, d, e, f, g, h, i, j, k};
expr = co.x^Range[10, 0, -1]
NSolve[D[expr, {x, 2}] == 0, x]
因为方程次数高于5,所以一般只有数值解.
第一句是给系数赋初值,对应x次数由高到低（一定要先赋值,否则没法计算）.
第二句是产生表达式,这里用了矢量的标量积来缩减表达式.
第三句是求导,求数值解.
作为例子,比如：
co = Range[11];
expr = co.x^Range[10, 0, -1]
NSolve[D[expr, {x, 2}] == 0, x]