for-loop - 在 Maxima 中，我该如何解这个方程？

Question

在 Maxima 中，我该如何解这个方程？实际上我有 24 个未知值，其中有很多这样的方程。我如何使用 Maxima 来解决？

知道未知值:a, b, c, d

eq:[a*c=8,a*d=10,b*c=12,b*d=15,a+b=5,c+d=9];
solve(eq,[a,b,c,d]);

Answer 1

有了四个未知数，你就必须有四个方程。忽略一组方程并运行:

sol1: solve([a*c=8,a*d=10,b*c=12,a+b=5],[a,b,c,d]);
              [[a = 2, b = 3, c = 4, d = 5]]

然后，忽略其他一组方程并再次运行:

sol2: solve([a*c=8,a*d=10,b*c=12,c+d=9],[a,b,c,d]);
              [[a = 2, b = 3, c = 4, d = 5]]

如果两个结果相同，则您的系统是一致的，并且有解 sol1 ≡ sol2。