Mathematica 如何同时解多个方程?

试试下面的程序
s1 = {x^2 - x - 1 == 0,x^2 - x - 2 == 0,x^2 - x - 3 == 0};
(1)
x /.Solve[#,x] & /@ s1
输出：{{1/2 (1 - Sqrt[5]),1/2 (1 + Sqrt[5])},{-1,2},{1/2 (1 - Sqrt[13]),1/2 (1 + Sqrt[13])}}
(2)
x /.NSolve[#,x] & /@ s1
输出： {{-0.618034,1.61803},{-1.,2.},{-1.30278,2.30278}}
看一下下面的截图就很清晰明了了

啊啦，不知道怎么选择满意答案的同学，你又来问了啊，首先给你点建议，对于这种程序问题，你最好是直接给我们代码，你这样贴一张图，你传图传的累，我们把公式抄下来抄的更累。然后嘛，虽然我知道这次你肯定又不会把我选为满意（并且你很可能还在心里以为你已经把我选为满意答案了因为你已经点过赞同按钮了可你却没意识到那个和选为满意是不一样的……），但是你的这个问题有点意思所以我来答一下。首先，Solve应该是解不了这...