www.pudn.com > dspproject.rar > prepross.m, change:2016-10-21,size:504b


[Y1,FS,NBITS]=wavread('b28.WAV'); % 将 WAV 文件转换成变量 
[Y2,FS,NBITS]=wavread('c28.WAV'); 
FS,NBITS, % 显示采样频率和量化比特 
Ym1=max(max(max(Y1)),max(abs(min(Y1)))),  
Ym2=max(max(max(Y2)),max(abs(min(Y2)))),% 找出双声道极值 
X1=Y1/Ym1, 
X2=Y2/Ym2,% 归一化处理 
x1=X1(:,1), 
x2=X2(:,1),% 抽取第 1 声道 
x=[x1,x2], 
x_=x' 
[Out1, Out2, Out3]=fastica(x_); 
ICresult_=Out1'; 
finalL=ICresult_(:,1), 
wavwrite(finalL,FS,NBITS,'fica1L.wav') 
finalR=ICresult_(:,2), 
wavwrite(finalR,FS,NBITS,'fica1R.wav')