mathematica求解偏微分方程组