先用MMA验证一下:
Clear[p,q,r];
{g\[Alpha], g\[Beta],g\[Gamma]} = #^3 + p #^2 + q # + r & /@ {\[Alpha], \[Beta], \[Gamma]};
sy = SymmetricPolynomial[#, {g\[Alpha], g\[Beta], g\[Gamma]}] & /@ {1,2, 3};
T = Simplify[First[SymmetricReduction[#, {\[Alpha], \[Beta], \[Gamma]}, {-a,b, -c}]] & /@ sy];
p = RandomReal[]; q = RandomReal[]; r = RandomReal[];
Chop[Total[{a, b, c} /. Solve[T == {RandomReal[], RandomReal[], RandomReal[]}, {a, b,c}]] - {27 p, 9 p^2, p^3}] == {0, 0, 0}
输出
True |