v4 dr1.m: added use of options_.qz_criterium with ordqz. Important for models with unit root

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1544 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
michel 2008-01-07 15:59:43 +00:00
parent cc6fe587ed
commit 4043406781
1 changed files with 5 additions and 3 deletions

View File

@ -272,9 +272,11 @@ if exist('ordqz')
info1 = 0;
try
[ss,tt,q,w]=qz(e,d,'real');
[ss,tt,q,w]=ordqz(ss,tt,q,w,'udi');
dr.eigval = ordeig(ss,tt);
sdim = find(abs(dr.eigval)<1);
eigval = ordeig(ss,tt);
dr.eigval = eigval;
select = abs(eigval) < options_.qz_criterium;
[ss,tt,q,w]=ordqz(ss,tt,q,w,select);
sdim = sum(select);
catch
info(1) = 2;
info(2) = NaN;