wolfram-mathematica - 求解变量平方的方程？

Question

给定一个表达式(多项式，或任何一般的方程)，例如

a s^2+b = 0

我想求解 s^2，得到 s^2 = -b/a。我们都知道一个人不能只写

Solve[eq==0,s^2]

因为 s^2 不是“变量”。只有 s 是一个“变量”。所以我要做的是

eq  = a s^2+b;
sol = First@Solve[eq==0/.s^2->z,z];
z/.sol

-(b/a)

我想知道是否有办法在没有中间变量替换的情况下执行上述操作？
我尝试了很多命令，但都没有成功(减少、收集、消除、因子等......)。

谢谢
--纳赛尔

Answer 1

一种方法是求解 s然后平方...

eq=a s^2+b;
sol=#^2 &@ (s/.Solve[eq==0,s])//DeleteDuplicates

Out[1]= {-(b/a)}