www.pudn.com > 305-matlabCode.zip > flanger_m.m

%PROJECT: AUDIO SIGNAL PROCESSING 
%IMPLEMENTATION OF FLANGER EFFECT 
%flanger FUNCTION 
%PROJECT BY: 
 
% ------- 
function y=flanger_m(); 
[x,fs,n]=wavread('wav_2.wav');%read in wav file 
%sound(x,fs); 
a=5; 
%Calculate the number of samples in the delay 
% delay = 10ms 
% No. Of Samples = D = delay*fs 
delay=10e-3; 
D=ceil(delay*fs); 
xlen=length(x); 
y=zeros(size(x)); 
delay = zeros(size(x)); 
% filter the signal 
for i=1:1:D+1 
y(i) = x(i); 
end; 
for i=D+1:1:xlen 
delay(i) = abs(round(D * cos(2*pi*i/((xlen-D-1))))); 
y(i)= x(i)+a*x(i-delay(i)); 
end;