계산을 두 번 실행하지 않고도 Mathematica에서 예외를 잡습니다.

Question

다양한 인스턴스에서 많은 수의 NMinimize 명령을 실행해야합니다. 이 중 일부는 수렴하지 못했습니다.

과 중 어느 것이 수렴에 실패했는지 확인하고 싶습니다. Mathematica에서 찾은 현재 해결 방법을 얻으려고합니다.

다른 게시물에 대한 검색은 Check[]을 사용하여 제안했지만 오류가 발생하면 결과를 반환하지 않습니다.

그래서 현재, 나는 다음과 같이 비효율적 인 구현을 가지고 :

allfit1 = ConstantArray[0,16]; 
For[i = 1, i <= 16, i++, (
allfit1[[i]] = Check[ 
        {0, NMinimize[f[x,data[[i]]], x]}, 
        {1, NMinimize[f[x,data[[i]]], x]} 
        ] 
)] 

당신은 내가 낭비하고 시간이 소요되는, 두 번 NMinimize을 실행하는 데시피

.

더 좋은 방법이 있습니까? 작은 변화로

Answer 1

:

Block[{res}, 
     Check[{0, res = NMinimize[...]}, {1, res}] 
] 

Answer 2

당신은

Table[Reap@Quiet@Check[Sow@NMinimize[f[x, d], x]; 1, 0]~ 
    Extract~{{1}, {2, 1, 1}}, {d, data}]