1function err = evaluate_max_dynamic_residual(model_dynamic, Y, exogenous_variables, params, steady_state, periods, ny, max_lag, lead_lag_incidence) 2 3% Copyright (C) 2013-2017 Dynare Team 4% 5% This file is part of Dynare. 6% 7% Dynare is free software: you can redistribute it and/or modify 8% it under the terms of the GNU General Public License as published by 9% the Free Software Foundation, either version 3 of the License, or 10% (at your option) any later version. 11% 12% Dynare is distributed in the hope that it will be useful, 13% but WITHOUT ANY WARRANTY; without even the implied warranty of 14% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15% GNU General Public License for more details. 16% 17% You should have received a copy of the GNU General Public License 18% along with Dynare. If not, see <http://www.gnu.org/licenses/>. 19 20i_rows = 1:ny; 21i_cols = find(lead_lag_incidence'); 22 23err = 0; 24 25for it = (max_lag+1):(max_lag+periods) 26 d = model_dynamic(Y(i_cols), exogenous_variables, params, steady_state, it); 27 i_rows = i_rows + ny; 28 i_cols = i_cols + ny; 29 r = max(abs(d)); 30 if r>err 31 err = r; 32 end 33end