Wolfram Mathematica 8求助

Question

Q= k1*(T1 - Ta)/d;
Q= k2*(Ta - Tb)/l;
Q= k1*(Tb - T2)/d;如何用Wolfram Mathematica 8软件化简，把Ta和Tb消掉得出Q的等式

Answer 1

由于该方程比较简单，可以直接使用Solve求解：

a1 = Q == k1*(T1 - Ta)/d;
a2 = Q == k2*(Ta - Tb)/l;
a3 = Q == k1*(Tb - T2)/d;
Solve[{a1, a2, a3}, {Q, Ta, Tb}]

得到结果：

{{Q -> (k1*(k2*T1 - k2*T2))/(2*d*k2 + k1*l), 
   Ta -> -(((-d)*k2*T1 - k1*l*T1 - d*k2*T2)/(2*d*k2 + k1*l)), 
   Tb -> -(((-d)*k2*T1 - d*k2*T2 - k1*l*T2)/(2*d*k2 + k1*l))}}