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