function h=mmtile(n)%MMTILE Tile Figure Windows.% MMTILE with no arguments, tiles the current figure windows% and brings them to the foreground.% Figure size is adjusted so that 4 figure windows fit on the screen.% Figures are arranged in a clockwise fashion starting in the% upper left corner of the display.%% MMTILE(N) makes tile N the current figure if it exists.% Otherwise, the next tile is created for subsequent plotting.%% Tiled figure windows are titled TILE #1, TILE #2, TILE #3, TILE #4.% D.C. Hanselman, University of Maine, Orono, ME 04469% 3/23/95% Copyright (c) 1996 by Prentice-Hall, Inc. HT=40;	% tile height fudge in pixelsWD=20;	% tile width fudge% adjust the above as necessary to eliminate tile overlaps% bigger fudge numbers increase gaps between tilesHf=sort(get(0,'Children'));	% get handles of current figuresnHf=length(Hf);set(0,'Units','Pixels')		% set screen dimensions to pixelssz=get(0,'Screensize');		% get screen size in pixelstsz=0.9*sz(3:4);			% default tile area is almost whole monitorif sz(4)>sz(3),				% if portrait monitor	tsz(2)=.75*tsz(1);		% take a landscape chunkendtsz=min(tsz,[920 690]);		% hold tile area on large screens to 920 by 690tl(1,1)=sz(3)-tsz(1)+1;		% left side of left tilestl(2,1)=tl(1,1)+tsz(1)/2;	% left side of right tilestb(1,1)=sz(4)-tsz(2)+1;		% bottom of bottom tilestb(2,1)=tb(1,1)+tsz(2)/2;	% bottom of top tilestpos=zeros(4);				% matrix holding tile position vectorstpos(:,1)=tl([1 2 2 1],1);			% left sidestpos(:,2)=tb([2 2 1 1],1);			% bottomstpos(:,3)=(tsz(1)/2-WD)*ones(4,1);	% widthstpos(:,4)=(tsz(2)/2-HT)*ones(4,1);	% heightstpos=fix(tpos);						% make sure pixel positions are integersif nargin==0				% tile figures as needed	for i=1:min(nHf,4)		set(Hf(i),'Units','pixels')		if any(get(Hf(i),'Position')~=tpos(i,:))			set(Hf(i),	'Position',tpos(i,:),...						'NumberTitle','off',...						'Name',['TILE #' int2str(i)])		end		figure(Hf(i))	endelse  						% go to tile N or create it	n=rem(abs(n)-1,4)+1;	% N must be between 1 and 4	if n<=nHf				% tile N exists, make it current		figure(Hf(n))	else					% tile N does not exist, create next one		n=nHf+1;		figure( 'Position',tpos(n,:),...				'NumberTitle','off',...				'Name',['TILE #' int2str(n)])					endend