mi.m

基于Matlab的八度音阶发音演奏程序

[mi,fs,bits]=wavread('e:\mi');
[miA,fs,bits]=wavread('e:\miA');
[mit,fs,bits]=wavread('e:\mit');
n=[0:(4.981-0.730)/(219700-32229):(4.981-0.730)];
e=exp(-n);
e=e';
miT=mit*ones(1,(219700-32229)/266);
miT=miT(:);
e=e*ones(1,2);
e(187265:187472,:)=[];
e(:,2)=[];
miS=e.*miT;
mif=miA;
mif(32230:(32229+187264))=miS;
sound(mif,fs)
wavwrite(mif,fs,'e:\mif');
subplot(2,1,1);
plot(mi);
subplot(2,1,2);
plot(mif);