v4 octave: fixed a problem with infinite eigenvalues in dr1.m

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1926 ac1d8469-bf42-47a9-8791-bf33cf982152
2008-07-04 09:57:01 +00:00 · 2008-07-04 09:57:01 +00:00 · e9be36f6ad
parent b1c4c4537b
commit e9be36f6ad
1 changed files with 3 additions and 3 deletions
--- a/matlab/dr1.m
+++ b/matlab/dr1.m
@ -291,9 +291,9 @@ function [dr,info,M_,options_,oo_] = dr1(dr,task,M_,options_,oo_)
    
    if task == 1
        dr.rank = rank(w(1:nyf,nd-nyf+1:end));
-        if exist('OCTAVE_VERSION')
-            dr.eigval = qz(e,d);
-        else
+        % Under Octave, eig(A,B) doesn't exist, and
+        % lambda = qz(A,B) won't return infinite eigenvalues
+        if ~exist('OCTAVE_VERSION')
            dr.eigval = eig(e,d);
        end
        return