У меня есть проблема с NDSolve в Mathematica, которую я запускаю несколько раз с разными значениями параметров. Для некоторых из этих значений решение приводит к особенностям, и NDSolve предупреждает с помощью NDSolve:: ndsz или других связанных предупреждений.
Я просто хотел бы поймать эти предупреждения, подавить их отображение и просто следить за тем, что возникла проблема для этих конкретных значений параметров. Я думал о следующих вариантах (ни один из которых действительно не трюк):
Check. Тем не менее, это все равно отобразит предупреждение. Если я отключу его с помощью Off, Check не сообщит об этом также.EventLocator, поэтому я мог бы проверить очень большие значения функции или ее производных и прекратить оценку в этом случае. Однако на практике это по-прежнему вызывает предупреждения время от времени, по-видимому, потому, что размер шага иногда может быть настолько большим, что предупреждение NDSolve запускается до моего Event.Любые другие предложения?
Если вы завернете 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]
Использование Quiet и Check together работает:
Quiet[Check[Table[1/Sin[x], {x, 0, \[Pi], \[Pi]}], $Failed]]
Возможно, вы хотите перенаправить сообщения? Это скопировано почти дословно на этой странице.
stream = OpenWrite["msgtemp.txt"];
$Messages = {stream};
1/0
FilePrint["msgtemp.txt"]