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

first order and cycle reduction: fixing bugs in previous commits

time-shift
Michel Juillard 2012-07-22 19:54:12 +02:00
parent ba1f5eedc2
commit e7a8261b17
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
matlab/cycle_reduction.m
View File

@ -66,6 +66,7 @@ info = 0;
X = [];
crit = Inf;
A0_0 = A0;
Ahat1 = A1;
if (nargin == 5 && ~isempty(ch) )
A1_0 = A1;
A2_0 = A2;
@ -76,11 +77,11 @@ id2 = id0+n;
cont = 1;
while cont
crit > cvg_tol && it < max_it && ~isnan(crit)
tmp = ([A0; A2]/A1)*[A0 A2];
A1 = A1 - tmp(id0,id2) - tmp(id2,id0);
A0 = -tmp(id0,id0);
A2 = -tmp(id2,id2);
Ahat1 = Ahat1 -tmp(id2,id0);
crit = norm(A0,1);
if crit < cvg_tol
% keep iterating until condition on A2 is met
@ -90,17 +91,17 @@ while cont
elseif isnan(crit) || it == max_it
if crit < cvg_tol
info(1) = 4;
info(2) = log(norm(A2,1))
info(2) = log(norm(A2,1));
else
info(1) = 3;
info(2) = log(norm(A1,1))
info(2) = log(norm(A1,1));
end
return
end
it = it + 1;
end
X = -A1\A0_0;
X = -Ahat1\A0_0;
if (nargin == 5 && ~isempty(ch) )
%check the solution

3
matlab/dyn_first_order_solver.m
View File

@ -276,8 +276,7 @@ else
opts.UT = true;
opts.TRANSA = true;
hx1 = linsolve(tt(indx_stable_root, indx_stable_root),Z11,opts)';
opts.UT = false;
hx2 = linsolve(Z11,ss(indx_stable_root, indx_stable_root)',opts)';
hx2 = linsolve(Z11,ss(indx_stable_root, indx_stable_root)')';
hx = hx1*hx2;
ghx = [hx(k1,:); gx(k2(nboth+1:end),:)];
end