MMA如何求最优一致逼近多项式

Question

我想按照最优一致多项式的定义求解目标多项式

以下面例题为例

我这样写代码，可是求不出来，求助MMA按定义求解这个问题该怎么写代码

ClearAll["Global`*"]
f[x_] := 2 x^3 + x^2 + 2 x - 1
h[a_, b_, c_] := Max[Abs[f[x] - (a x^2 + b x + c)]]
StagnationPoints = 
 Minimize[{h[a, b, c], -1 <= x <= 1}, {a, b, c}, Reals]
Print[Style["最优一致逼近多项式为：", Red, Bold], 
 a x^2 + b x + c /. (StagnationPoints // Flatten)]