Diagnostics/DiagUtility/displaytiles.m

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

global cmin cmax
clf

if size(A,3)==1
 A=tiles(A,1:6);
end

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	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	if size(A,3)==1
10	A=tiles(A,1:6);
11	end
12
13	cmin=min(min(min(A)));
14	cmax=max(max(max(A)));
15	if isnan(cmin)
16	cmin = 0;
17	end
18	if isnan(cmax)
19	cmax = 1;
20	end
21	if cmin==cmax
22	cmax = cmin+1;
23	end
24
25	subplot(3,4,9)
26	myplot(A(:,:,1)')
27	subplot(3,4,10)
28	myplot(A(:,:,2)')
29	subplot(3,4,6)
30	myplot(A(:,:,3)')
31	subplot(3,4,7)
32	myplot(A(:,:,4)')
33	subplot(3,4,3)
34	myplot(A(:,:,5)')
35	subplot(3,4,4)
36	myplot(A(:,:,6)')
37
38
39	%Colorbar
40	subplot(3,10,30)
41	x=[0 1];
42	y=(0:63)'/63*(cmax-cmin)+cmin;
43	pcol(x,y,[y y]);
44	set(gca,'XTickLabel',[]);
45
46	function [] = myplot( Q )
47	global cmin cmax
48	pcol( Q );
49	caxis([cmin cmax])