logarithmic_reduction.m: use positive penalty add-on
parent
5226db4b3c
commit
fe0606ae06
|
@ -80,7 +80,7 @@ while cc>tol && kk<=maxit
|
||||||
cc = norm(X1-X0,1);
|
cc = norm(X1-X0,1);
|
||||||
if isnan(cc)
|
if isnan(cc)
|
||||||
info(1) = 412;
|
info(1) = 412;
|
||||||
info(2) = -1.;
|
info(2) = 1;
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
X0 = X1; U0 = U1;
|
X0 = X1; U0 = U1;
|
||||||
|
|
|
@ -91,7 +91,7 @@ loop: do
|
||||||
exit loop
|
exit loop
|
||||||
elseif (isnan(crit) .or. (info_inv /= 0_blint)) then
|
elseif (isnan(crit) .or. (info_inv /= 0_blint)) then
|
||||||
info(1) = 412._c_double
|
info(1) = 412._c_double
|
||||||
info(2) = -1._c_double
|
info(2) = 1._c_double
|
||||||
exit loop
|
exit loop
|
||||||
end if
|
end if
|
||||||
it = it + 1
|
it = it + 1
|
||||||
|
|
Loading…
Reference in New Issue