minor bug fix

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2977 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
ratto 2009-09-24 15:25:50 +00:00
parent 531021acef
commit 3f09d91873
1 changed files with 2 additions and 1 deletions

View File

@ -22,7 +22,8 @@ function [McoH, McoJ, PcoH, PcoJ, condH, condJ, eH, eJ, ind01, ind02, indnoH, in
% 1. check rank of H at theta
npar = size(H,2);
indno = {};
indnoH = {};
indnoJ = {};
ind1 = find(vnorm(H)~=0);
H1 = H(:,ind1);
[e1,e2] = eig(H1'*H1);