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	enderton	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			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])