关于偏微分方程组mathematica或matlab编程求解,有没有简单点的办法,方程见图

只会Mathematica。数值解的话可以用NDSolve。你给的条件还不足,需要补充边界条件,以及具体参数。一个小例子：eqn = D[u[t, r], t] == D[u[t, r], r, r] + D[u[t, r], r]/r;int = u[0, r] == 1;bon1 = u[t, 0。1] == 1;bon2 = u[t, 1] == 1 + t;sol = NDSolve[{eqn, int, bon1, bon2}, u, {t, 0, 1}, {r, 0。1, 1}];Plot3D[u[t, r] /。 sol, {t, 0, 1}, {r, 0。1, 1}]注意这里把0点给挖掉了,因为那里是奇点,而Mathematica对偏微分数值计算的此类地方要求比较严,不去掉的话运算会出错。这个就是个最简单的圆形分布的,外边界的温度随时间t线性增加的温度随时间变化图了。非齐次项的引入是完全类似的。读懂了我的代码的话,你就该知道怎么加了。