la.m

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

[la,fs,bits]=wavread('e:\la');
[laA,fs,bits]=wavread('e:\laA');
[lat,fs,bits]=wavread('e:\lat');
n=[0:(4.996-0.736)/(220355-32476):(4.996-0.736)];
e=exp(-n);
e=e';
laT=lat*ones(1,(220355-32476)/200);
laT=laT(:);
e=e*ones(1,2);
e(187801:187880,:)=[];
e(:,2)=[];
laS=e.*laT;
laf=laA;
laf(32477:(32476+187800))=laS;
sound(laf,fs);
wavwrite(laf,fs,'e:\laf');
subplot(2,1,1);
plot(la);
subplot(2,1,2);
plot(laf);