0001 function [nbplt,nr,nc,lr,lc,nstar] = pltorg(number)
0002
0003 nrstar = 3;
0004 ncstar = 3;
0005 nstar = nrstar*ncstar;
0006 nbplt = 0;
0007 nr = 0;
0008 nc = 0;
0009 lr = 0;
0010 lc = 0;
0011 if number == 1
0012 nbplt = 1;
0013 nr = 1;
0014 nc = 1;
0015 elseif number == 2
0016 nbplt = 1;
0017 nr = 2;
0018 nc = 1;
0019 elseif number == 3
0020 nbplt = 1;
0021 nr = 3;
0022 nc = 1;
0023 elseif number == 4
0024 nbplt = 1;
0025 nr = 2;
0026 nc = 2;
0027 elseif number == 5
0028 nbplt = 1;
0029 nr = 3;
0030 nc = 2;
0031 elseif number == 6
0032 nbplt = 1;
0033 nr = 3;
0034 nc = 2;
0035 elseif number == 7
0036 nbplt = 1;
0037 nr = 3;
0038 nc = 3;
0039 elseif number == 8
0040 nbplt = 1;
0041 nr = 3;
0042 nc = 3;
0043 elseif number == 9
0044 nbplt = 1;
0045 nr = 3;
0046 nc = 3;
0047 else
0048 if number/nstar == round(number/nstar)
0049 nbplt = number/nstar;
0050 nr = nrstar;
0051 nc = ncstar;
0052 lr = nr;
0053 lc = nc;
0054 else
0055 nbplt = ceil(number/nstar);
0056 nr = nrstar;
0057 nc = ncstar;
0058 reste = number-(nbplt-1)*nstar;
0059 if reste == 1
0060 lr = 1;
0061 lc = 1;
0062 elseif reste == 2
0063 lr = 2;
0064 lc = 1;
0065 elseif reste == 3
0066 lr = 3;
0067 lc = 1;
0068 elseif reste == 4
0069 lr = 2;
0070 lc = 2;
0071 elseif reste == 5
0072 lr = 3;
0073 lc = 2;
0074 elseif reste == 6
0075 lr = 3;
0076 lc = 2;
0077 elseif reste == 7
0078 lr = 3;
0079 lc = 3;
0080 elseif reste == 8
0081 lr = 3;
0082 lc = 3;
0083 end
0084 end
0085 end
