mathematica 求多项式中偶次项组成的多项式
问题描述：
mathematica 求多项式中偶次项组成的多项式
答
定义多项式为f(x),然后计算[f(x)+f(-x)]/2
例如输入：
f[x_] := 3 x^6 + x^4 - 2 x^3 + 5 x - 1;
Expand[(f[x] + f[-x])/2]
输出：
-1 + x^4 + 3 x^6