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

你需要纯函数和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}]