Wolfram Mathematica 8求助

题目

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

答案

由于该方程比较简单,可以直接使用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))}}