Wolfram mathematica 从数学方程式中解方程式

我需要一种方法，通过Mathematica 8中其他方程得到的另一个变量来解方程。例如：

a + b = 2c
c + 2 = d
d = 2b

它将为给定值选择最佳方程，并求解其余方程。 对于一些给定值，如

a=1

和

c=3

，它求解系统，得到相应变量的值。

---

*将此用于物理公式。

使用“求解”或“减少”函数。语法是

解[{方程列表}，{要解的变量}]

因此，在这种情况下：

Solve[{a + b == 2 c, c + 2 == d, d == 2 b}, {a, b, c, d}]
(*->
{{a -> -4 + (3 d)/2, b -> d/2, c -> -2 + d}}
*)

有4个变量，只有3个方程，所以有无限的解。

---

它们位于4-d线上

（-4+（3 n）/2，n/2，n-2，n）

使用“求解”或“减少”功能。语法是

解[{方程列表}，{要解的变量}]

因此，在这种情况下：

Solve[{a + b == 2 c, c + 2 == d, d == 2 b}, {a, b, c, d}]
(*->
{{a -> -4 + (3 d)/2, b -> d/2, c -> -2 + d}}
*)

有4个变量，只有3个方程，所以有无限的解。

---

它们位于4-d线上

（-4+（3 n）/2，n/2，n-2，n）

，展示你的尝试是个好主意。展示你的尝试是个好主意。谢谢，但当我把方程列表放在模块或块中时，它无法解决系统。@Odinfall你能解释一下你的意思吗？我不确定我是否遵循。在模块内运行Solve或Reduce应该可以。例如：

solver[eqList，varList]：=Module[{}，Reduce[eqList，varList]

解算器[{a+b==2C，c+2==d，d==2B}，{a，b，c，d}]

这个精确的代码虽然有效，但毫无意义，因为它只是简单地包装。但是，如果您需要模块中的reduce结果（听起来像），您可以使用此设置并向模块中添加更多内容。（特别是，您可能希望在新变量中捕获Reduce调用的输出。）谢谢，但当我将等式列表放入模块或块中时，它无法求解系统。@Odinfall您能解释一下这是什么意思吗？我不确定我是否遵循。在模块内运行Solve或Reduce应该可以。例如：

solver[eqList，varList]：=Module[{}，Reduce[eqList，varList]

解算器[{a+b==2C，c+2==d，d==2B}，{a，b，c，d}]

这个精确的代码虽然有效，但毫无意义，因为它只是简单地包装。但是，如果您需要模块中的reduce结果（听起来像），您可以使用此设置并向模块中添加更多内容。（特别是，您可能希望在新变量中捕获Reduce调用的输出。）