finish.m

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

do=wavread('e:\dof');
re=wavread('e:\ref');
mi=wavread('e:\mif');
fa=wavread('e:\faf');
so=wavread('e:\sof');
la=wavread('e:\laf');
si=wavread('e:\sif');
finish=do;
finish((length(finish)+1):(length(finish)+length(re)))=re;
finish((length(finish)+1):(length(finish)+length(mi)))=mi;
finish((length(finish)+1):(length(finish)+length(fa)))=fa;
finish((length(finish)+1):(length(finish)+length(so)))=so;
finish((length(finish)+1):(length(finish)+length(la)))=la;
finish((length(finish)+1):(length(finish)+length(si)))=si;
sound(finish,44100);
wavwrite(finish,44100,'e:\finish');