regrid/scrip_examples/test_regrid_ascii.m

%
%  Ed Hill
%
%  Test the CS32_LL128x64_00?.regrid.ascii files.
%

clear all ; close all

for i = 1:6
  eval(sprintf('load CS32_LL128x64_%03d.regrid.ascii',i));
  eval(sprintf('a(i).dat = CS32_LL128x64_%03d;',i));
  eval(sprintf('clear CS32_LL128x64_%03d;',i));
  a(i).c = i.*ones(32,32);
end

llg = zeros(64,128);

i = 1;
for i = 1:6
  for j = 1:size(a(i).dat,1)
    llg( a(i).dat(j,2) ) = llg( a(i).dat(j,2) ) + a(i).dat(j,3) * i;
  end
  subplot(2,3,i)
  surf(llg), view(2), axis equal, caxis([0 6]), colorbar, shading flat
end


1	edhill	1.1	%
2			% Ed Hill
3			%
4			% Test the CS32_LL128x64_00?.regrid.ascii files.
5			%
6
7			clear all ; close all
8
9			for i = 1:6
10			eval(sprintf('load CS32_LL128x64_%03d.regrid.ascii',i));
11			eval(sprintf('a(i).dat = CS32_LL128x64_%03d;',i));
12			eval(sprintf('clear CS32_LL128x64_%03d;',i));
13			a(i).c = i.*ones(32,32);
14			end
15
16			llg = zeros(64,128);
17
18			i = 1;
19			for i = 1:6
20			for j = 1:size(a(i).dat,1)
21			llg( a(i).dat(j,2) ) = llg( a(i).dat(j,2) ) + a(i).dat(j,3) * i;
22			end
23			subplot(2,3,i)
24			surf(llg), view(2), axis equal, caxis([0 6]), colorbar, shading flat
25			end
26
27