77 lines
2.1 KiB
Matlab
77 lines
2.1 KiB
Matlab
function indent = sbvar_global_identification_check(options_)
|
|
% function sbvar_global_identification_check(options_.ms)
|
|
%
|
|
% INPUTS
|
|
% options_ms: (struct) options
|
|
%
|
|
% OUTPUTS
|
|
% ident: (boolean) false = not identified; true = identified
|
|
%
|
|
% SPECIAL REQUIREMENTS
|
|
% none
|
|
|
|
% Copyright (C) 2015 Dynare Team
|
|
%
|
|
% This file is part of Dynare.
|
|
%
|
|
% Dynare is free software: you can redistribute it and/or modify
|
|
% it under the terms of the GNU General Public License as published by
|
|
% the Free Software Foundation, either version 3 of the License, or
|
|
% (at your option) any later version.
|
|
%
|
|
% Dynare is distributed in the hope that it will be useful,
|
|
% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
% GNU General Public License for more details.
|
|
%
|
|
% You should have received a copy of the GNU General Public License
|
|
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
ident = false;
|
|
|
|
if isequal(options_.ms.restriction_fname, 'upper_cholesky') || ...
|
|
isequal(options_.ms.restriction_fname, 'lower_cholesky')
|
|
ident = true;
|
|
if ~options_.noprint
|
|
disp(' ')
|
|
disp('SBVAR: Cholesky identification is always identified')
|
|
disp(' ')
|
|
end
|
|
return
|
|
end
|
|
nvar = length(options_.varobs); % number of endogenous variables
|
|
nexo = 1;
|
|
|
|
[Uiconst,Viconst,n0,np,ixmC0Pres,Qi] = exclusions(nvar,nexo,options_.ms );
|
|
|
|
% order column constraints by rank
|
|
Qranks = zeros(nvar,2);
|
|
for j=1:nvar
|
|
Qranks(j,:) = [j,rank(Qi{j})];
|
|
end
|
|
Qranks = sortrows(Qranks,-2);
|
|
|
|
ident = true;
|
|
|
|
for j=1:nvar
|
|
i = Qranks(j,1);
|
|
for k=1:1
|
|
M = [Qi{i}*rand(size(Qi{i},1),nvar);[eye(j) zeros(j,nvar- ...
|
|
j)]];
|
|
disp([j,k,rank(M)])
|
|
if rank(M) < nvar
|
|
ident = false
|
|
break
|
|
end
|
|
end
|
|
end
|
|
|
|
if ~options_.noprint
|
|
disp(' ')
|
|
if ident
|
|
disp('The sufficient condition for SBVAR identification is met')
|
|
else
|
|
disp('WARNGING: The sufficient condition for SBVAR identification is not met')
|
|
end
|
|
disp(' ')
|
|
end |