1

请帮助我在 Wolfram Mathematica 程序中找到解决方案。我已多次检查输入数据的准确性。他们是真的。解决方案必须存在。但是 Wolfram 提供空图（对于任何时间点）或错误“NDSolve::eerr”. 这是我的代码：

    solution = 
 NDSolve[{D[fun[t, x, y], t] == 
    Exp[-t]*Cos[Pi*y] + D[fun[t, x, y], {x, 2}] + 
     D[fun[t, x, y], {y, 2}], fun[t, 0, y] == 0, fun[t, 1, y] == 0, 
   fun[0, x, y] == 0, (D[fun[t, x, y], y] /. y -> 0) == 
    0, (D[fun[t, x, y], y] /. y -> 1) == 0}, 
  fun[t, x, y], {t, 0, 5}, {x, 0, 1}, {y, 0, 1}]


Plot3D[Evaluate[First[fun[5, x, y] /. solution]], {x, 0, 1}, {y, 0, 
  1}, PlotRange -> All, Mesh -> None, PlotPoints -> 40]

这是错误代码

at t = 5.NDSolve::eerr: 警告：自变量 x 方向上140.65851971330582 的缩放局部空间误差估计值远大于规定的误差容限。具有 15 个点的网格间距可能太大而无法达到所需的准确度或精度。可能已经形成奇点，或者可以使用 MaxStepSize 或 MinPoints 方法选项指定更小的网格间距。

请告知在这种情况下可以做些什么。提前谢谢了！

4

0 回答 0