% read_merged_acs
%% Step 1 -- Define and Read Data...
datafnames=struct2cell(dir('*.mer'));
% appenarray=cell(size(datafnames{1}));
for i=1:length(datafnames{1})
    appen=['p',datafnames{1,i}(9:11)];
    filename=datafnames{1,i};
    import_merged_2;
    figure(20);
    adata=eval([appen,'adata']);
    cdata=eval([appen,'cdata']);
    len=size(adata,1);
    subplot(3,1,1);
    plot(wvla,adata([4; round(len/2); len-3],:));
    legend('b','m','e','Location','Best');
    subplot(3,1,2);
    plot(wvlc,cdata([4; round(len/2); len-3],:));
    legend('b','m','e','Location','Best');
    subplot(3,1,3);
    plot(eval([appen,'time']),[adata(:,[15 35 75]) cdata(:,[15 35 75])]);
    legend(['a',num2str(wvla(15))],['a',num2str(wvla(35))],['a',num2str(wvla(75))],['c',num2str(wvlc(15))],['c',num2str(wvlc(35))],['c',num2str(wvlc(75))],'Location','BestOutside');
    pause
end