在Mathematica中用四个变量求解平方根，没有代码响应

Question

我尝试使用以下方法获取x的表达式失败 Mathematica中的代码，我有4个变量，x，r，a和b。有什么建议吗？

Select[x, #1 \[Element] Reals &]
roots = x /.
Solve[
Sqrt[29991348849*x^2 - 13958305552*x + 992000000 - r + a - b] == 0,
x]
result1 = Select[roots, Im@# == 0 &]