matlab-grid-generator/bin/displaytiles.m

function [] = displaytiles(A)
% Display tiled field.
%
% Dimensions of A must be (n,n,6)

global cmin cmax
clf

cmin=min(min(min(A)));
cmax=max(max(max(A)));
if isnan(cmin)
 cmin = 0;
end
if isnan(cmax)
 cmax = 1;
end
if cmin==cmax
 cmax = cmin+1;
end

subplot(3,4,9)
myplot(A(:,:,1)')
subplot(3,4,10)
myplot(A(:,:,2)')
subplot(3,4,6)
myplot(A(:,:,3)')
subplot(3,4,7)
myplot(A(:,:,4)')
subplot(3,4,3)
myplot(A(:,:,5)')
subplot(3,4,4)
myplot(A(:,:,6)')


%Colorbar
subplot(3,10,30)
x=0:1;
y=(0:63)'/63*(cmax-cmin)+cmin;
pcol(x,y,[y y]);
set(gca,'XTickLabel',[]);

function [] = myplot( Q )
global cmin cmax
pcol( Q );
caxis([cmin cmax])
1	cnh	1.1	function [] = displaytiles(A)
2			% Display tiled field.
3			%
4			% Dimensions of A must be (n,n,6)
5
6			global cmin cmax
7			clf
8
9			cmin=min(min(min(A)));
10			cmax=max(max(max(A)));
11			if isnan(cmin)
12			cmin = 0;
13			end
14			if isnan(cmax)
15			cmax = 1;
16			end
17			if cmin==cmax
18			cmax = cmin+1;
19			end
20
21			subplot(3,4,9)
22			myplot(A(:,:,1)')
23			subplot(3,4,10)
24			myplot(A(:,:,2)')
25			subplot(3,4,6)
26			myplot(A(:,:,3)')
27			subplot(3,4,7)
28			myplot(A(:,:,4)')
29			subplot(3,4,3)
30			myplot(A(:,:,5)')
31			subplot(3,4,4)
32			myplot(A(:,:,6)')
33
34
35			%Colorbar
36			subplot(3,10,30)
37			x=0:1;
38			y=(0:63)'/63*(cmax-cmin)+cmin;
39			pcol(x,y,[y y]);
40			set(gca,'XTickLabel',[]);
41
42			function [] = myplot( Q )
43			global cmin cmax
44			pcol( Q );
45			caxis([cmin cmax])