diff --git a/matlab/solve1.m b/matlab/solve1.m index fa6a3262fdb72f7e77230ceee43f184117c3f6df..5c2cd12464136755d0251e663b5ff0e0ab7c22ad 100644 --- a/matlab/solve1.m +++ b/matlab/solve1.m @@ -121,7 +121,20 @@ for its = 1:maxit end if rcond_fjac < sqrt(eps) fjac2=fjac'*fjac; - p=-(fjac2+sqrt(nn*eps)*max(sum(abs(fjac2)))*eye(nn))\(fjac'*fvec); + temp=max(sum(abs(fjac2))); + if temp>0 + p=-(fjac2+sqrt(nn*eps)*temp*eye(nn))\(fjac'*fvec); + else + errorflag = true; + errorcode = 5; + if nargout<3 + skipline() + dprintf('SOLVE: Iteration %s', num2str(its)) + disp('Zero Jacobian.') + skipline() + end + return + end else p = -fjac\fvec ; end