多项式方程的根命名

青青子衿

2. Clear["Global`*"]
3. Thread[{x1, x3, x2, x4,
4.     x5} = (y /. # & /@
5.      NSolve[979/3125 + (462 y)/125 - (11 y^2)/25 - (22 y^3)/5 + y^5 ==
6.         0])];
7. M = x1^2 (x2*x5 + x3*x4) + x2^2 (x1*x3 + x4*x5) +
8.   x3^2 (x1*x5 + x2*x4) + x4^2 (x1*x2 + x3*x5) + x5^2 (x1*x4 + x2*x3)
9. NSolve[1991 + 125 x == 0, x]

复制代码