在mathematica中求解二维热方程PDE

时间:2016-11-08 20:27:49

标签: wolfram-mathematica differential-equations pde heat wolframalpha

我试图在Mathematica中解决以下等式,但我不知道每次它只返回方程本身而不是解决它。我尝试了Dsolve和NDsolve,但它并没有帮助我。任何人都可以用正确的语法帮助我吗? 那里存在对称边界条件,方程在圆柱形r和z中,并且也取决于时间t。

heat= (1/r)*D[r*T[r, z, t], r] + 
D[T[r, z, t], {z, 2}] == (1/(10^-4))*D[T[r, z, t], t]
NDSolve[{heat, T[0.05, z, 0] == 500, D[T[r, z, t], r] == 0}, 
T, {r, 0.01, 0.05}, {t, 0, 10}, {z, 0, 0.05}]

我对Dsolve做了同样的事情并没有成功。 如果这个问题与此无关,您可以在停用它之前指导我在哪里以及如何发布它?谢谢

0 个答案:

没有答案