Detecta advertencias/errores de Mathematica sin mostrarlos

Question

Tengo un problema relacionado con NDSolve en Mathematica, que ejecuto varias veces con diferentes valores de los parámetros. Para algunos de estos valores, la solución da como resultado singularidades y NDSolve advierte con NDSolve :: ndsz u otras advertencias relacionadas.

Simplemente me gustaría captar estas advertencias, suprimir su visualización, y simplemente hacer un seguimiento del hecho de que ocurrió un problema para estos valores particulares de los parámetros. Pensé en las siguientes opciones (ninguno de los cuales realmente hacer el truco):

1. Sé que puedo determinar si un comando se ha traducido en una advertencia o error utilizando Check. Sin embargo, eso aún mostrará la advertencia. Si lo apago con Off, el Check no informa la advertencia también.
2. Es posible detener NDSolve utilizando el método EventLocator, por lo que pude verificar valores muy grandes de la función o sus derivados y detener la evaluación en ese caso. Sin embargo, en la práctica, esto todavía produce advertencias de vez en cuando, presumiblemente porque el tamaño del paso a veces puede ser tan grande que se dispara la advertencia NDSolve antes de que mi Event haya tenido lugar.

¿Alguna otra sugerencia?

Answer 1

Si ajusta Check con Quiet, entonces creo que todo debería funcionar como desee. Por ejemplo, puede suprimir el mensaje específico Power::indet

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

pero otros mensajes siguen siendo representada

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

Usando tranquila y Check conjunto de obras:

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

Answer 3

Quizás desea redirect messages? Esto se copia casi textualmente desde esa página.

stream = OpenWrite["msgtemp.txt"]; 

$Messages = {stream}; 

1/0 

FilePrint["msgtemp.txt"]