function [resA resX cdts]=read_mats_fig2(fich) fich='fig2_' resA=zeros(6,30,10); resX=zeros(6,30,10); cdts=zeros(6,30,10); for mint=1:1800 [pen Tit mk]=ind2sub([6 30 10],mint); m=int2str(mint); try load(strcat(fich,m)); resA(pen,Tit,mk)=SRRA(Aind,hatA); resX(pen,Tit,mk)=SRRX(Sinf,Aind,hatA); cdts(pen,Tit,mk)=cdt; catch {'missing *.mat mint=' mint} resA(pen,Tit)=NaN; end end save(['res-' fich],'resA','resX','cdts','Ts'); end