From cd05bfb8a22e3f2b8688350b5dd5709595badc8f Mon Sep 17 00:00:00 2001 From: Johannes Pfeifer Date: Fri, 8 Sep 2023 08:09:20 +0200 Subject: [PATCH] Remove unused ghx2transition.m --- matlab/gsa/ghx2transition.m | 57 ------------------------------------- 1 file changed, 57 deletions(-) delete mode 100644 matlab/gsa/ghx2transition.m diff --git a/matlab/gsa/ghx2transition.m b/matlab/gsa/ghx2transition.m deleted file mode 100644 index ac4c7acd7..000000000 --- a/matlab/gsa/ghx2transition.m +++ /dev/null @@ -1,57 +0,0 @@ -function [A,B] = ghx2transition(mm,iv,ic,aux) -% [A,B] = ghx2transition(mm,iv,ic,aux) -% -% Adapted by M. Ratto (from kalman_transition_matrix.m) -% Joint Research Centre, The European Commission, -% marco.ratto@ec.europa.eu -% - -% Copyright © 2012-2017 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 . - -global oo_ M_ - -[nr1, nc1] = size(mm); -ghx = mm(:, [1:(nc1-M_.exo_nbr)]); -ghu = mm(:, [(nc1-M_.exo_nbr+1):end] ); -if nargin == 1 - oo_.dr.ghx = ghx; - oo_.dr.ghu = ghu; - endo_nbr = M_.endo_nbr; - nstatic = M_.nstatic; - nspred = M_.nspred; - iv = (1:endo_nbr)'; - ic = [ nstatic+(1:nspred) endo_nbr+(1:size(oo_.dr.ghx,2)-nspred) ]'; - aux = oo_.dr.transition_auxiliary_variables; - k = find(aux(:,2) > nspred); - aux(:,2) = aux(:,2) + nstatic; - aux(k,2) = aux(k,2) + M_.nfwrd; -end -n_iv = length(iv); -n_ir1 = size(aux,1); -nr = n_iv + n_ir1; - -A = zeros(nr,nr); -B = zeros(nr,M_.exo_nbr); - -i_n_iv = 1:n_iv; -A(i_n_iv,ic) = ghx(iv,:); -if n_ir1 > 0 - A(n_iv+1:end,:) = sparse(aux(:,1),aux(:,2),ones(n_ir1,1),n_ir1,nr); -end - -B(i_n_iv,:) = ghu(iv,:);