44 lines
1.3 KiB
Matlab
44 lines
1.3 KiB
Matlab
function dy = back_subst_lbj(c,ny,iyf,periods)
|
||
% Computes backward substitution in LBJ
|
||
%
|
||
% INPUTS
|
||
% c: matrix containing the D and d for Sébastien’s presentation
|
||
% ny: number of endogenous variables
|
||
% iyf: indices of forward variables inside the list of all endogenous variables
|
||
% periods: number of simulation periods
|
||
%
|
||
% OUTPUTS
|
||
% dy: vector of backsubstitution results
|
||
|
||
% Copyright © 2023 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 <https://www.gnu.org/licenses/>.
|
||
|
||
ir = (periods-2)*ny+(1:ny);
|
||
irf = iyf+(periods-1)*ny;
|
||
icf = 1:size(iyf,2);
|
||
nrc = length(iyf)+1;
|
||
|
||
for i = 2:periods
|
||
c(ir,nrc) = c(ir,nrc)-c(ir,icf)*c(irf,nrc);
|
||
ir = ir-ny;
|
||
irf = irf-ny;
|
||
end
|
||
|
||
dy = reshape(c(:,nrc), ny, periods);
|
||
|
||
end
|