Question

mathematica新手提问 能不能把方程里面的变量 设定范围 然后把每个对应的值都列出来

Solve[(a + b) (a - b)/((a + b + x) (x - a)) ==
2.71828^(14.66 - 16397.6/1000)/
P && (a + b) b/((x + a + b) (a - b)) ==
2.71828^(13.5 - 21252/1000)/P && a - b == 10000, {a, b, x}, Reals]
代码如上 a b x都是要求的 P就是一个参数 如果P的值是从0.25到4 然后设置一个区间 比如0.05 能不能用mathematica 这样取值 然后列出一张关于a b x值的表什么的
不想用mathematica一个个算 然后再让进excel里面 这样觉得太浪费了

Answer 1

你需要纯函数和Map（咦怎么好像前两天说了一样的话？）：

list = Range[0.25, 4, 0.05];
Solve[(a + b) (a - b)/((a + b + x) (x - a)) ==
2.71828^(14.66 - 16397.6/1000)/# && (a +
b) b/((x + a + b) (a - b)) == 2.71828^(13.5 - 21252/1000)/# &&
a - b == 10000, {a, b, x}, Reals] & /@ list

当然，用Table也是可以的：

Table[Solve[(a + b) (a - b)/((a + b + x) (x - a)) ==
2.71828^(14.66 - 16397.6/1000)/
p && (a + b) b/((x + a + b) (a - b)) ==
2.71828^(13.5 - 21252/1000)/p && a - b == 10000, {a, b, x},
Reals], {p, 0.25, 4, 0.05}]