iluke_waveinfo

0001 function infostr = iluke_waveinfo(waves)
0002 %
0003 if isstruct(waves{1})
0004     nw = length(waves);
0005     infostr = cell(1,nw);
0006     for iw = 1:nw,
0007         infostr{iw} = ['Wave # ',num2str(iw),'   Type : ',waves{iw}.rayinit.launch.type,'   Id : ',waves{iw}.id];
0008     end
0009 else
0010     nit = length(waves);
0011     nw = length(waves{1});
0012     infostr = cell(1,nw+2);
0013     infostr{1} = ['Fluctuations : ',num2str(nit),' states.'];
0014     infostr{2} = ' ';
0015     for iw = 1:nw,
0016         is1 = max(strfind(waves{1}{iw},'WAVE_'));%wavess contains wave files
0017         is2 = strfind(waves{1}{iw},'_itn_1.mat') - 1;
0018         %
0019         infostr{2+iw} = ['Wave # ',num2str(iw),' : ',waves{1}{iw}(is1:is2)];
0020     end
0021 end