flanging.m

来自「eco and reverberation matlab codes」· M 代码 · 共 15 行

[x,fs,n]=wavread('casa.wav');
xlen=length(x);
a=0.99;
D=3500;
y=zeros(size(x));
cycle=1000;
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*cycle*i)));
    y(i)=x(i)+a*x(i-delay(i));
end;

sound(y,fs);