33 lines
1.2 KiB
Modula-2
33 lines
1.2 KiB
Modula-2
var c k x;
|
|
|
|
parameters alpha gam delta beta ;
|
|
|
|
alpha=0.5;
|
|
gam=0.5;
|
|
delta=0.02;
|
|
beta=0.05;
|
|
|
|
model;
|
|
x = x(-1)*1.02;
|
|
c + k - x^(1-alpha)*k(-1)^alpha - (1-delta)*k(-1);
|
|
c^(-gam) - (1+beta)^(-1)*(alpha*x(+1)^(1-alpha)*k^(alpha-1) + 1 - delta)*c(+1)^(-gam);
|
|
end;
|
|
|
|
verbatim;
|
|
|
|
bgp.write(M_);
|
|
if isoctave
|
|
options = optimset('Display', 'iter', 'MaxFunEvals', 1000000,'MaxIter',100000,'Jacobian','on','TolFun',1e-7,'TolX',1e-7);
|
|
elseif matlab_ver_less_than('9.0')
|
|
% See https://fr.mathworks.com/help/optim/ug/current-and-legacy-option-name-tables.html
|
|
options = optimoptions('fsolve','Display','iter','Algorithm','levenberg-marquardt','MaxFunEvals',1000000,'MaxIter',100000,'Jacobian','on','TolFun',1e-6,'TolX',1e-6);
|
|
else
|
|
options = optimoptions('fsolve','Display','iter','Algorithm','levenberg-marquardt','MaxFunctionEvaluations',1000000,'MaxIterations',100000,'SpecifyObjectiveGradient',true,'FunctionTolerance',1e-6,'StepTolerance',1e-6);
|
|
end
|
|
y = 1+(rand(M_.endo_nbr,1)-.5)*.25;
|
|
g = ones(M_.endo_nbr,1);% 1+(rand(M_.endo_nbr,1)-.5)*.1;
|
|
[y, fval, exitflag] = fsolve(@ramsey.bgpfun, [y;g], options);
|
|
assert(max(abs(y(M_.endo_nbr+(1:M_.orig_endo_nbr))-1.02))<1e-6)
|
|
|
|
end;
|