捕获 Mathematica 警告/错误而不显示它们

Question

我在 Mathematica 中遇到涉及 NDSolve 的问题，我使用不同的参数值运行了多次。对于其中一些值，解会导致奇点，并且 NDSolve 会发出 NDSolve::ndsz 警告或其他相关警告。

我只想捕捉这些警告，抑制它们的显示，并跟踪这些特定参数值出现问题的事实。我想到了以下选项（这两个选项都没有真正起作用）：

1. 我知道我可以使用 Check 确定命令是否导致警告或错误。但是，仍然会显示警告。如果我使用 Off 将其关闭，Check 也无法报告警告。
2. 可以使用 EventLocator 方法停止 NDSolve，因此我可以检查函数或其导数的值是否非常大，并在这种情况下停止计算。然而，在实践中，这仍然会时不时地产生警告，大概是因为步长有时可能太大，以至于 NDSolve 警告在我的 Event 发生之前触发。

还有其他建议吗？

Answer 1

如果您将 Check 与 Quiet 包装在一起，那么我相信一切都应该按您的意愿进行。例如，您可以抑制特定消息 Power::indet

In[1]:= Quiet[Check[0^0,err,Power::indet],Power::indet]
Out[1]= err

但仍显示其他消息

In[2]:= Quiet[Check[Sin[x,y],err,Power::indet],Power::indet]
During evaluation of In[2]:= Sin::argx: Sin called with 2 arguments; 1 argument is expected. >>
Out[2]= Sin[x,y]

Answer 2

一起使用 Quiet 和 Check 可以发挥作用：

Quiet[Check[Table[1/Sin[x], {x, 0, \[Pi], \[Pi]}], $Failed]]

Answer 3

也许您希望重定向消息？这几乎是从该页面逐字复制的。

stream = OpenWrite["msgtemp.txt"];

$Messages = {stream};

1/0

FilePrint["msgtemp.txt"]