tilefigs.m

结合于遗传算法的偏最小二乘 光谱数据与非光谱数据均可使用

function tilefigs(tile,border)
% <cpp> tile figure windows usage: tilefigs ([nrows ncols],border_in pixels)
% Restriction: maximum of 100 figure windows
% Without arguments, tilefigs will determine the closest N x N grid


%Charles Plum                    Nichols Research Corp.
%<[e-mail]>             70 Westview Street
%Tel: [phone]             Kilnbrook IV
%Fax: [phone]             Lexington, MA 02173


maxpos  = get (0,'screensize'); % determine terminal size in pixels
maxpos(4) = maxpos(4) - 25;
hands   = get (0,'Children');   % locate fall open figure handles
hands   = sort(hands);          % sort figure handles
numfigs = size(hands,1);        % number of open figures


maxfigs = 100;


if (numfigs>maxfigs)            % figure limit check
        disp([' More than ' num2str(maxfigs) ' figures ... get serious pal'])
        return
end


if nargin == 0
  maxfactor = sqrt(maxfigs);       % max number of figures per row or column
  sq = [2:maxfactor].^2;           % vector of integer squares
  sq = sq(find(sq>=numfigs));      % determine square grid size
  gridsize = sq(1);                % best grid size
  nrows = sqrt(gridsize);          % figure size screen scale factor
  ncols = nrows;                   % figure size screen scale factor
elseif nargin > 0 
  nrows = tile(1);
  ncols = tile(2);
  if numfigs > nrows*ncols
    disp ([' requested tile size too small for ' ...
        num2str(numfigs) ' open figures '])
        return
  end
end
if nargin < 2
  border = 0;
else
  maxpos(3) = maxpos(3) - 2*border;
  maxpos(4) = maxpos(4) - 2*border;
end
xlen = fix(maxpos(3)/ncols) - 30; % new tiled figure width
ylen = fix(maxpos(4)/nrows) - 45; % new tiled figure height

% tile figures by postiion 
% Location (1,1) is at bottom left corner
pnum=0;
for iy = 1:nrows
   ypos = maxpos(4) - fix((iy)*maxpos(4)/nrows) + border +25; % figure location (row)
   for ix = 1:ncols
      xpos = fix((ix-1)*maxpos(3)/ncols + 1) + border+7;     % figure location (column)
      pnum = pnum+1;
      if (pnum>numfigs)
         break
      else
         figure(hands(pnum))
         tmpset=get(hands(iy),'units');  % Get the current figure units.
         set(hands(pnum),'units','pixels');  % Set the figure units to pixels.
         set(hands(pnum),'Position',[ xpos ypos xlen ylen ]); % move figure
         set(hands(pnum),'units',tmpset); % Set the units back to what they were.
         set(hands(pnum),'menubar','none')   
      end
   end
end
return


% -------------------------------------------------------------------------