Wolfram Mathematica 8求助
Q=k1*(T1-Ta)/d;Q=k2*(Ta-Tb)/l;Q=k1*(Tb-T2)/d;如何用WolframMathematica8软件化简，把Ta和Tb消掉得出Q的等...
Q= k1*(T1 - Ta)/d;
Q= k2*(Ta - Tb)/l;
Q= k1*(Tb - T2)/d;如何用Wolfram Mathematica 8软件化简，把Ta和Tb消掉得出Q的等式 展开
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))}}
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
