re.m

来自「基于Matlab的八度音阶发音演奏程序」· M 代码 · 共 20 行

[re,fs,bits]=wavread('e:\re');
[reA,fs,bits]=wavread('e:\reA');
[ret,fs,bits]=wavread('e:\ret');
n=[0:(4.996-0.827)/(220346-36479):(4.996-0.827)];
e=exp(-n);
e=e';
reT=ret*ones(1,(220346-36479)/299);
reT=reT(:);
e=e*ones(1,2);
e(183587:183868,:)=[];
e(:,2)=[];
reS=e.*reT;
ref=reA;
ref(36480:(36479+183586))=reS;
sound(ref,fs);
wavwrite(ref,fs,'e:\ref');
subplot(2,1,1);
plot(re);
subplot(2,1,2);
plot(ref);