Question

mathematica 求方程系数 已知q[x] = 72 + 18 x - 17 x^2 - 2 x^3 + x^4

p[x_] = e + d*x + c*x^2 + b*x^3

若 p[x + 1] == q[x] + p[x] 恒成立
1）求 a b c d e 所有可能的值
2）证明 所有p[x]都是中心对称
谢谢 各位大大
很久没上，分不多，谢谢啦

Answer 1

q[x_] := 72 + 18 x - 17 x^2 - 2 x^3 + x^4;
sol = RSolve[q[x] == p[x + 1] - p[x], p[x], x]

(*
{{p[x] -> -(1/15) (-3 - x) (200 + 234 x + 7 x^2 - 24 x^3 + 3 x^4) + C[1]}}
*)

f[x_] = p[x] /. First@sol

SolveAlways[f[a+x] - b == -(f[a - x] - b), x]

(* {{b -> 112 + C[1], a -> 1}} *)

Answer 2

你问了两次啊……话说为什么这一题的题面更简单啊？：