Question

Mathematica 如何同时解多个方程？

如何同时解多个方程？
例如：假设s1表示3个不同的方程，怎么批量求解？
输入：
s1={x^2 - x - 1=0, x^2 - x - 2=0, x^2 - x - 3=0};
输出3个方程的3组解：
s2={ -0.618034,1.61803},{-1., 2.},{-1.30278,2.30278}}
谢谢！
补充：
原s2右边写少了半个括号，应该为：
s2={{ -0.618034,1.61803},{-1., 2.},{-1.30278,2.30278}}

Answer 1

试试下面的程序

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}}

看一下下面的截图就很清晰明了了