1function discount_factor=get_optimal_policy_discount_factor(params,param_names)
2
3%function discount_factor=get_optimal_policy_discount_factor(M)
4%  get the value of Ramsey policy discount factor
5%
6% INPUTS
7%   params:             (vector) value of parameters
8%   param_names:        (char array) list of parameter names
9%
10% OUTPUTS
11%   discount_factor     (double) discount factor
12%
13% SPECIAL REQUIREMENTS
14%   none
15
16% Copyright (C) 2007-2018 Dynare Team
17%
18% This file is part of Dynare.
19%
20% Dynare is free software: you can redistribute it and/or modify
21% it under the terms of the GNU General Public License as published by
22% the Free Software Foundation, either version 3 of the License, or
23% (at your option) any later version.
24%
25% Dynare is distributed in the hope that it will be useful,
26% but WITHOUT ANY WARRANTY; without even the implied warranty of
27% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
28% GNU General Public License for more details.
29%
30% You should have received a copy of the GNU General Public License
31% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
32
33discount_factor = params(find(strcmp('optimal_policy_discount_factor', param_names)));
34