1 2fid=fopen('aecfar.pcm'); far=fread(fid,'short'); fclose(fid); 3fid=fopen('aecnear.pcm'); mic=fread(fid,'short'); fclose(fid); 4 5%fid=fopen('QA1far.pcm'); far=fread(fid,'short'); fclose(fid); 6%fid=fopen('QA1near.pcm'); mic=fread(fid,'short'); fclose(fid); 7 8start=0 * 8000+1; 9stop= 30 * 8000; 10microphone=mic(start:stop); 11TheFarEnd=far(start:stop); 12avtime=1; 13 14% 16000 to make it compatible with the C-version 15[emicrophone,tdel]=compsup(microphone,TheFarEnd,avtime,16000); 16 17spclab(8000,TheFarEnd,microphone,emicrophone); 18 19 20