diff --git a/matlab/solve1.m b/matlab/solve1.m index 73dca70b2b16535bfeeec985a17c9f00ffb85d30..0d96b8feb2fffa08fbdd880dddc46c889349cab8 100644 --- a/matlab/solve1.m +++ b/matlab/solve1.m @@ -101,7 +101,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