我试图在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做了同样的事情并没有成功。 如果这个问题与此无关，您可以在停用它之前指导我在哪里以及如何发布它？谢谢