stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v3+4 solve1.m: bug correction 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@852 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
michel 2006-07-31 17:17:05 +00:00
parent 4a6e4ebe13
commit c9534f98d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
matlab/solve1.m
View File

@ -99,7 +99,7 @@ function [x,check] = solve1(func,x,j1,j2,jacobian_flag,varargin)
if check > 0
den = max([f;0.5*nn]) ;
if max(abs(g).*max([abs(x');ones(1,nn)])')/den < tolmin
if max(abs(g).*max([abs(x(j2)') ones(1,nn)])')/den < tolmin
return
else
disp (' ')
@ -109,7 +109,7 @@ function [x,check] = solve1(func,x,j1,j2,jacobian_flag,varargin)
return
end
if max(abs(x-xold)./max([abs(x);ones(1,nn)])') < tolx
if max(abs(x(j2)-xold(j2))./max([abs(x(j2)') ones(1,nn)])') < tolx
disp (' ')
disp (['SOLVE: Iteration ' num2str(its)])
disp (['Convergence on dX.'])