1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
function [flag,endo_simul,err] = solve_perfect_foresight_model(endo_simul,exo_simul,pfm)
% Copyright (C) 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/>.
flag = 0;
err = 0;
stop = 0;
nan_flag = 0;
model_dynamic = pfm.dynamic_model;
Y = endo_simul(:);
if pfm.verbose
disp (['-----------------------------------------------------']) ;
disp (['MODEL SIMULATION :']) ;
fprintf('\n') ;
end
z = Y(find(pfm.lead_lag_incidence'));
[d1,jacobian] = model_dynamic(z,exo_simul,pfm.params,pfm.steady_state,2);
A = sparse([],[],[],pfm.periods*pfm.ny,pfm.periods*pfm.ny,pfm.periods*nnz(jacobian));
res = zeros(pfm.periods*pfm.ny,1);
h1 = clock;
for iter = 1:pfm.maxit_
h2 = clock;
i_rows = 1:pfm.ny;
i_cols = find(pfm.lead_lag_incidence');
i_cols_A = i_cols;
for it = 2:(pfm.periods+1)
[d1,jacobian] = model_dynamic(Y(i_cols),exo_simul,pfm.params,pfm.steady_state,it);
if it == 2
A(i_rows,pfm.i_cols_A1) = jacobian(:,pfm.i_cols_1);
elseif it == pfm.periods+1
A(i_rows,i_cols_A(pfm.i_cols_T)) = jacobian(:,pfm.i_cols_T);
else
A(i_rows,i_cols_A) = jacobian(:,pfm.i_cols_j);
end
res(i_rows) = d1;
i_rows = i_rows + pfm.ny;
i_cols = i_cols + pfm.ny;
if it > 2
i_cols_A = i_cols_A + pfm.ny;
end
end
err = max(abs(res));
if err < pfm.tolerance
stop = 1 ;
if pfm.verbose
fprintf('\n') ;
disp([' Total time of simulation :' num2str(etime(clock,h1))]) ;
fprintf('\n') ;
disp([' Convergency obtained.']) ;
fprintf('\n') ;
end
flag = 0;% Convergency obtained.
endo_simul = reshape(Y,pfm.ny,pfm.periods+2);
break
end
dy = -A\res;
if any(isnan(dy))
nan_flag = 1;
break
end
Y(pfm.i_upd) = Y(pfm.i_upd) + dy;
end
if ~stop
if pfm.verbose
fprintf('\n') ;
disp([' Total time of simulation :' num2str(etime(clock,h1))]) ;
fprintf('\n') ;
disp(['WARNING : maximum number of iterations is reached (modify options_.maxit_).']) ;
fprintf('\n') ;
end
flag = 1;% more iterations are needed.
endo_simul = 1;
end
if nan_flag
if pfm.verbose
fprintf('\n') ;
disp([' Total time of simulation :' num2str(etime(clock,h1))]) ;
fprintf('\n') ;
disp(['WARNING : NaNs!']) ;
fprintf('\n') ;
end
flag = 1;
endo_simul = 1;
end
if pfm.verbose
disp (['-----------------------------------------------------']) ;
end
|
