dynare_solve_block_or_bytecode.m 3.97 KB
Newer Older
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
1
function [x,info] = dynare_solve_block_or_bytecode(y, exo, params, options, M)
Sébastien Villemot's avatar
Sébastien Villemot committed
2
% Copyright (C) 2010-2012 Dynare Team
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
%
% 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/>.

info = 0;
x = y;
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
21
if options.block && ~options.bytecode
22
    for b = 1:length(M.block_structure_stat.block)
23
        ss = x;
24
25
        if M.block_structure_stat.block(b).Simulation_Type ~= 1 && ...
           M.block_structure_stat.block(b).Simulation_Type ~= 2
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
26
            if options.solve_algo <= 4
27
                [y, check] = dynare_solve('block_mfs_steadystate', ...
28
                                          ss(M.block_structure_stat.block(b).variable), ...
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
29
                                          options.jacobian_flag, b, ss, exo, params, M);
30
                if check ~= 0
31
32
33
34
                    %                    error(['STEADY: convergence
                    %                    problems in block ' int2str(b)])
                    info = 1;
                    return
35
                end
36
                ss(M.block_structure_stat.block(b).variable) = y;
37
            else
38
                n = length(M.block_structure_stat.block(b).variable);
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
39
                [ss, check] = solve_one_boundary([M.fname '_static_' int2str(b)], ss, exo, ...
40
                                                 params, [], M.block_structure_stat.block(b).variable, n, 1, 0, b, 0, options.simul.maxit, ...
41
42
43
44
45
46
                                                 options.solve_tolf, ...
                                                 options.slowc, 0, options.solve_algo, 1, 0, 0,M,options);
                if check
                    info = 1;
                    return
                end
47
48
            end
        end
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
49
        [r, g1, x] = feval([M.fname '_static'], b, ss, ...
50
                           exo, params);
51
    end
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
52
53
elseif options.bytecode
    if options.solve_algo > 4
54
        [check, x] = bytecode('static', x, exo, params);
55
56
57
58
59
        %        mexErrCheck('bytecode', check);
        if check
            info = 1;
            return
        end
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
60
    elseif options.block
61
62
63
        for b = 1:length(M.block_structure_stat.block)
            if M.block_structure_stat.block(b).Simulation_Type ~= 1 && ...
               M.block_structure_stat.block(b).Simulation_Type ~= 2
64
                [y, check] = dynare_solve('block_bytecode_mfs_steadystate', ...
65
                                          x(M.block_structure_stat.block(b).variable), ...
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
66
                                          options.jacobian_flag, b, x, exo, params, M);
67
68
69
70
71
                if check
                    %                    error(['STEADY: convergence
                    %                    problems in block ' int2str(b)])
                    info = 1;
                    return
72
                end
73
                x(M.block_structure_stat.block(b).variable) = y;
74
            else
75
76
77
78
79
80
                [chk, nulldev, nulldev1, x] = bytecode( x, exo, params, ...
                                                        x, 1, x, 'evaluate', 'static', ['block = ' int2str(b)]);
                if chk
                    info = 1;
                    return
                end
81
82
83
84
            end;
        end
    else
        [x, check] = dynare_solve('bytecode_steadystate', ...
85
                                  y, ...
Ferhat Mihoubi's avatar
Ferhat Mihoubi committed
86
                                  options.jacobian_flag, exo, params);
87
88
89
90
        if check
            %            error('STEADY: convergence problems')
            info = 1;
            return
91
92
        end
    end
93
end