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	%
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