fa.m

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

[fa,fs,bits]=wavread('e:\fa');
[faA,fs,bits]=wavread('e:\faA');
[fat,fs,bits]=wavread('e:\fat');
n=[0:(5.003-0.546)/(220642-24119):(5.003-0.546)];
e=exp(-n);
e=e';
faT=fat*ones(1,(220642-24119)/254);
faT=faT(:);
e=e*ones(1,2);
e(196343:196524,:)=[];
e(:,2)=[];
faS=e.*faT;
faf=faA;
faf(24120:(24119+196342))=faS;
sound(faf,fs);
wavwrite(faf,fs,'e:\faf');
subplot(2,1,1);
plot(fa);
subplot(2,1,2);
plot(faf);