f[w_] := Maximize[{1 - x^2 w + x Cos[w], 0 <= x <= 2}, x](*或者写成下边的f := Maximize[{1 - x^2 # + x Cos[#], 0 <= x <= 2}, x]& *)Plot[Evaluate@f[w], {w, -2, 2}](*画画图*)FullSimplify[f[w]](*化简一下*)
