do.m

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

[do,fs,bits]=wavread('e:\do');
[doA,fs,bits]=wavread('e:\doA');
[dot,fs,bits]=wavread('e:\dot');
n=[0:(4.990-0.840)/(220068-37056):(4.990-0.840)];
e=exp(-n);
e=e';
doT=dot*ones(1,(220068-37056)/338);
doT=doT(:);
e=e*ones(1,2);
e(182859:183013,:)=[];
e(:,2)=[];
doS=e.*doT;
dof=doA;
dof(37057:(37056+182858))=doS;
sound(dof,fs);
wavwrite(dof,fs,'e:\dof');
subplot(2,1,1);
plot(do);
subplot(2,1,2);
plot(dof);