突然发现问题：Mathematica 12.1版本中用Solve命令求方程的解 不可以 直接输出根式解

笨笨

Mathematica 9.0版本方程的解 可以 直接输出根式解



Mathematica 12.1版本方程的解 不可以 直接输出根式解




请问在Mathematica 12.1版本中解方程直接输出根式解（如上图9.0版本一样效果）在软件菜单栏里怎么调式？

笨笨

走过路过的前辈可否解答一下

笨笨

笨笨 发表于 2025-8-1 15:05
走过路过的前辈可否解答一下

用ToRadicals命令得出根式解不错，可楼主好奇的是能不能从软件菜单栏上设置一下解决这个问题

王守恩

1. Solve[x^3 - x^2 + 3 x - 4 == 0, x] // ToRadicals

复制代码

Mathematica 12.1版本(我也是Mathematica 12.1版本)用上面的条码可以输出根式解(如上图9.0版本一样效果)。

笨笨

王守恩 发表于 2025-8-2 07:24
Mathematica 12.1版本(我也是Mathematica 12.1版本)用上面的条码可以输出根式解(如上图9.0版本一样效果)。 ...

请老先生试试12.1版本下的代码，看看如何？截图

1. Solve[x^3 - x^2 + 3 x - 4 == 0, x]

复制代码

王守恩

笨笨 发表于 2025-8-2 10:41
请老先生试试12.1版本下的代码，看看如何？截图

1. Solve[x^3 - x^2 + 3 x - 4 == 0, x]

复制代码

{{x -> Root[-4 + 3 # - #^2 + #^3& , 1, 0]}, {x -> Root[-4 + 3 # - #^2 + #^3& , 2, 0]}, {x -> Root[-4 + 3 # - #^2 + #^3& , 3, 0]}}
——本来与1#下半部分是一样的——复制,粘贴就变变成这样了。——我不会“截图”。

笨笨

王守恩 发表于 2025-8-2 14:15
{{x -> Root[-4 + 3 # - #^2 + #^3& , 1, 0]}, {x -> Root[-4 + 3 # - #^2 + #^3& , 2, 0]}, {x -> Root ...

话说软件版本越高越先进，为啥9.0版本可以直接得到根式解，而12.1版本不能直接得到根式解。是功能的倒退还是另有隐情？

Jack315

加个选项就可以了：
https://reference.wolfram.com/language/ref/Solve.html?q=Solve

三次方程的选项：Cubics->True
例：

1. Solve[x^3 - x^2 + 3 x - 4 == 0, x, Cubics -> True]

复制代码

四次方程的选项：Quartics->True
例：

1. Solve[x^4 + 2 x^2 + 3 x + 4 == 0, x, Quartics -> True]

复制代码

笨笨

Jack315 发表于 2025-8-2 15:15
加个选项就可以了：
https://reference.wolfram.com/language/ref/Solve.html?q=Solve

话说软件版本越高越先进，为啥9.0版本可以直接得到根式解，而12.1版本不能直接得到根式解。是功能的倒退还是另有隐情？