Wolfram Mathematica 8求助

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/26 12:32:39

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))}}

求大神帮注册wolfram mathematica 7 Wolfram Mathematica 如何把数字矩阵生成一个变量矩阵? 求助Mathematica大神 Wolfram Mathematica 如何把多个方程的每个方程任一组解代入到多项式求值? mathematica 解方程解不出来,求助【求助】matlab,maple,Mathematica哪个更好些? mathematica mathematica求助：如何对带有字母的多项式进行运算? 刚用mathematica, 画图却只显示-graphics-,咋没图啊?求助! 菜鸟!急问!求助一个Mathematica做积分的问题! 用mathematica计算-8的立方根为什么得出复数? C++语言如何改写成Mathematica 8语言