Wolfram Mathematica 8求助
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/06 18:28:17
Wolfram Mathematica 8求助
Q= k1*(T1 - Ta)/d;
Q= k2*(Ta - Tb)/l;
Q= k1*(Tb - T2)/d;如何用Wolfram Mathematica 8软件化简,把Ta和Tb消掉得出Q的等式
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))}}
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语言