
clear;

ser = input('Please input series number:  ');
drc = ['../check_ea/out_', ser, '/'];
%drc = ['../../exp_IMAEAfm/check_ea/out_', ser, '/'];

fnm = dir(drc);
[num, nn] = size(fnm);

for i = 3:2:num-1
    dat_fnm = fnm(i).name
    lbl_fnm = fnm(i+1).name
    ave_alpha = cal_alpha_sub(drc, dat_fnm, lbl_fnm)
    
    ans = input('Will you see next Ea?  1/0 (yes/no)');
    if ans ‾= 1 
        return
    end
end