1function [nbplt,nr,nc,lr,lc,nstar] = pltorg(number)
2
3% Copyright (C) 2004-2017 Dynare Team
4%
5% This file is part of Dynare.
6%
7% Dynare is free software: you can redistribute it and/or modify
8% it under the terms of the GNU General Public License as published by
9% the Free Software Foundation, either version 3 of the License, or
10% (at your option) any later version.
11%
12% Dynare is distributed in the hope that it will be useful,
13% but WITHOUT ANY WARRANTY; without even the implied warranty of
14% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15% GNU General Public License for more details.
16%
17% You should have received a copy of the GNU General Public License
18% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
19
20nrstar = 3;
21ncstar = 3;
22nstar  = nrstar*ncstar;
23nbplt  = 0;
24nr     = 0;
25nc     = 0;
26lr     = 0;
27lc     = 0;
28if number == 1
29    nbplt = 1;
30    nr    = 1;
31    nc    = 1;
32elseif number == 2
33    nbplt = 1;
34    nr    = 2;
35    nc    = 1;
36elseif number == 3
37    nbplt = 1;
38    nr    = 3;
39    nc    = 1;
40elseif number == 4
41    nbplt = 1;
42    nr    = 2;
43    nc    = 2;
44elseif number == 5
45    nbplt = 1;
46    nr    = 3;
47    nc    = 2;
48elseif number == 6
49    nbplt = 1;
50    nr    = 3;
51    nc    = 2;
52elseif number == 7
53    nbplt = 1;
54    nr    = 3;
55    nc    = 3;
56elseif number == 8
57    nbplt = 1;
58    nr    = 3;
59    nc    = 3;
60elseif number == 9
61    nbplt = 1;
62    nr    = 3;
63    nc    = 3;
64else
65    if number/nstar == round(number/nstar)
66        nbplt = number/nstar;
67        nr    = nrstar;
68        nc    = ncstar;
69        lr    = nr;
70        lc    = nc;
71    else
72        nbplt = ceil(number/nstar);
73        nr    = nrstar;
74        nc    = ncstar;
75        reste = number-(nbplt-1)*nstar;
76        if reste == 1
77            lr    = 1;
78            lc    = 1;
79        elseif reste == 2
80            lr    = 2;
81            lc    = 1;
82        elseif reste == 3
83            lr    = 3;
84            lc    = 1;
85        elseif reste == 4
86            lr    = 2;
87            lc    = 2;
88        elseif reste == 5
89            lr    = 3;
90            lc    = 2;
91        elseif reste == 6
92            lr    = 3;
93            lc    = 2;
94        elseif reste == 7
95            lr    = 3;
96            lc    = 3;
97        elseif reste == 8
98            lr    = 3;
99            lc    = 3;
100        end
101    end
102end