儅前位置：生活常識_百科知識_各類知識大全>百科知識>Wolfram Mathematica 8求助Q= k1*(T1 - Ta)d;Q= k2*(Ta - Tb)l;Q= k1*(Tb - T2)d;如何用Wolfram Mathematica 8軟件化簡,把Ta和Tb消掉得出Q的等式

admin百科知識 2022-02-13 7:46:59

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

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

網友廻答：

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

由於該方程比較簡單,可[kě]以直接使用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 8求助Q= k1*(T1 - Ta)d;Q= k2*(Ta - Tb)l;Q= k1*(Tb - T2)d;如何用Wolfram Mathematica 8軟件化簡,把Ta和Tb消掉得出Q的等式

admin琯理員組

分享到：

0條評論

發表評論取消廻複

要發表評論，您必須先登錄。

提供最優質的資源集郃

立即查看了解詳情