2006-08-24 15:07:26 +02:00
|
|
|
function [x,info] = dynare_solve(func,x,jacobian_flag,varargin)
|
2008-01-03 13:12:07 +01:00
|
|
|
|
|
|
|
% function [x,info] = dynare_solve(func,x,jacobian_flag,varargin)
|
|
|
|
% proposes different solvers
|
|
|
|
%
|
|
|
|
% INPUTS
|
|
|
|
% func: name of the function to be solved
|
|
|
|
% x: guess values
|
|
|
|
% jacobian_flag=1: jacobian given by the 'func' function
|
|
|
|
% jacobian_flag=0: jacobian obtained numerically
|
|
|
|
% varargin: list of arguments following jacobian_flag
|
|
|
|
%
|
|
|
|
% OUTPUTS
|
|
|
|
% x: solution
|
|
|
|
% info=1: the model can not be solved
|
|
|
|
%
|
|
|
|
% SPECIAL REQUIREMENTS
|
|
|
|
% none
|
|
|
|
%
|
|
|
|
% part of DYNARE, copyright Dynare Team (2001-2008)
|
|
|
|
% Gnu Public License.
|
|
|
|
|
|
|
|
|
2005-02-18 20:54:39 +01:00
|
|
|
global options_
|
|
|
|
|
2005-09-27 22:22:40 +02:00
|
|
|
options_ = set_default_option(options_,'solve_algo',2);
|
2006-08-24 15:07:26 +02:00
|
|
|
info = 0;
|
2005-02-18 20:54:39 +01:00
|
|
|
if options_.solve_algo == 0
|
|
|
|
if ~isempty(which('fsolve')) & sscanf(version('-release'),'%d') >= 13;
|
|
|
|
options=optimset('fsolve');
|
2007-11-27 15:16:13 +01:00
|
|
|
options.MaxFunEvals = 50000;
|
|
|
|
options.MaxIter = 2000;
|
2005-02-18 20:54:39 +01:00
|
|
|
options.TolFun=1e-8;
|
2007-11-27 15:16:13 +01:00
|
|
|
options.Display = 'iter';
|
2006-01-18 17:50:33 +01:00
|
|
|
if jacobian_flag
|
|
|
|
options.Jacobian = 'on';
|
|
|
|
else
|
2006-07-03 14:19:54 +02:00
|
|
|
options.Jacobian = 'off';
|
2006-01-18 17:50:33 +01:00
|
|
|
end
|
2005-02-18 20:54:39 +01:00
|
|
|
[x,fval,exitval,output] = fsolve(func,x,options,varargin{:});
|
|
|
|
if exitval > 0
|
2006-08-24 15:07:26 +02:00
|
|
|
info = 0;
|
2005-02-18 20:54:39 +01:00
|
|
|
else
|
2006-08-24 15:07:26 +02:00
|
|
|
info = 1;
|
2005-02-18 20:54:39 +01:00
|
|
|
end
|
|
|
|
return
|
|
|
|
else
|
|
|
|
options_.solve_algo = 1;
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
if options_.solve_algo == 1
|
2006-09-15 16:16:34 +02:00
|
|
|
nn = size(x,1);
|
2006-08-24 15:07:26 +02:00
|
|
|
[x,info]=solve1(func,x,1:nn,1:nn,jacobian_flag,varargin{:});
|
2005-02-18 20:54:39 +01:00
|
|
|
elseif options_.solve_algo == 2
|
|
|
|
nn = size(x,1) ;
|
2006-09-21 17:48:36 +02:00
|
|
|
tolf = options_.solve_tolf ;
|
2005-02-18 20:54:39 +01:00
|
|
|
|
2006-01-18 17:50:33 +01:00
|
|
|
if jacobian_flag
|
|
|
|
[fvec,fjac] = feval(func,x,varargin{:});
|
|
|
|
else
|
|
|
|
fvec = feval(func,x,varargin{:});
|
|
|
|
fjac = zeros(nn,nn) ;
|
|
|
|
end
|
2005-02-18 20:54:39 +01:00
|
|
|
|
|
|
|
i = find(~isfinite(fvec));
|
|
|
|
|
|
|
|
if ~isempty(i)
|
|
|
|
disp(['STEADY: numerical initial values incompatible with the following' ...
|
|
|
|
' equations'])
|
|
|
|
disp(i')
|
|
|
|
error('exiting ...')
|
|
|
|
end
|
|
|
|
|
2007-11-27 15:16:13 +01:00
|
|
|
% f = 0.5*fvec'*fvec ;
|
2005-02-18 20:54:39 +01:00
|
|
|
|
2006-09-21 17:48:36 +02:00
|
|
|
if max(abs(fvec)) < tolf
|
2005-02-18 20:54:39 +01:00
|
|
|
return ;
|
|
|
|
end
|
|
|
|
|
2006-01-18 17:50:33 +01:00
|
|
|
if ~jacobian_flag
|
|
|
|
fjac = zeros(nn,nn) ;
|
|
|
|
dh = max(abs(x),options_.gstep*ones(nn,1))*eps^(1/3);
|
|
|
|
for j = 1:nn
|
|
|
|
xdh = x ;
|
|
|
|
xdh(j) = xdh(j)+dh(j) ;
|
|
|
|
fjac(:,j) = (feval(func,xdh,varargin{:}) - fvec)./dh(j) ;
|
|
|
|
end
|
|
|
|
end
|
2005-02-18 20:54:39 +01:00
|
|
|
|
|
|
|
[j1,j2,r,s] = dmperm(fjac);
|
|
|
|
|
|
|
|
for i=length(r)-1:-1:1
|
2006-08-24 15:07:26 +02:00
|
|
|
[x,info]=solve1(func,x,j1(r(i):r(i+1)-1),j2(r(i):r(i+1)-1),jacobian_flag,varargin{:});
|
2006-11-01 13:47:24 +01:00
|
|
|
if info & options_.debug
|
|
|
|
error(sprintf('Solve block = %d check = %d\n',i,info));
|
|
|
|
end
|
2005-02-18 20:54:39 +01:00
|
|
|
end
|
2007-01-04 15:42:27 +01:00
|
|
|
fvec = feval(func,x,varargin{:});
|
|
|
|
if max(abs(fvec)) > tolf
|
|
|
|
[x,info]=solve1(func,x,1:nn,1:nn,jacobian_flag,varargin{:});
|
|
|
|
end
|
2006-11-12 17:02:29 +01:00
|
|
|
elseif options_.solve_algo == 3
|
2007-11-27 15:16:13 +01:00
|
|
|
if jacobian_flag
|
|
|
|
[x,info] = csolve(func,x,func,1e-6,500,varargin{:});
|
|
|
|
else
|
|
|
|
[x,info] = csolve(func,x,[],1e-6,500,varargin{:});
|
|
|
|
end
|
2005-02-18 20:54:39 +01:00
|
|
|
end
|
|
|
|
% fvec1 = feval(func,x,varargin{:})
|
|
|
|
|
|
|
|
% 08/28/03 MJ add a final call to solve1 for solve_algo == 1 in case
|
|
|
|
% initvals generates 'false' zeros in the Jacobian
|
|
|
|
|