Question

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

多项式形式为ax^10+bx^9+cx^8+dx^7+ex^6+fx^5+gx^4+hx^3+ix^2+jx^1+k
其中a,b,c,d,f,等为可输入的参数，对这个方程求二阶导数，并让这个二阶导数等于0，计算x的值，多谢 。毕业论文计算数据要用。导师说这是个很简单的问题，分数不是问题。

Answer 1

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]