Copyright (C) 2001-2010,2012 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/>.
0001 function osr(var_list,params,i_var,W) 0002 0003 % Copyright (C) 2001-2010,2012 Dynare Team 0004 % 0005 % This file is part of Dynare. 0006 % 0007 % Dynare is free software: you can redistribute it and/or modify 0008 % it under the terms of the GNU General Public License as published by 0009 % the Free Software Foundation, either version 3 of the License, or 0010 % (at your option) any later version. 0011 % 0012 % Dynare is distributed in the hope that it will be useful, 0013 % but WITHOUT ANY WARRANTY; without even the implied warranty of 0014 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0015 % GNU General Public License for more details. 0016 % 0017 % You should have received a copy of the GNU General Public License 0018 % along with Dynare. If not, see <http://www.gnu.org/licenses/>. 0019 0020 global M_ options_ oo_ 0021 0022 options_.order = 1; 0023 options_ = set_default_option(options_,'replic',1); 0024 options_ = set_default_option(options_,'simul',0); 0025 options_ = set_default_option(options_,'periods',1); 0026 0027 if isempty(options_.qz_criterium) 0028 options_.qz_criterium = 1+1e-6; 0029 end 0030 0031 make_ex_; 0032 0033 np = size(params,1); 0034 i_params = zeros(np,1); 0035 for i=1:np 0036 i_params(i) = strmatch(deblank(params(i,:)),M_.param_names,'exact'); 0037 end 0038 0039 disp(' ') 0040 disp('OPTIMAL SIMPLE RULE') 0041 disp(' ') 0042 osr1(i_params,i_var,W); 0043 0044 stoch_simul(var_list);