s1_3.m

能够实现音乐不同乐器的转换,在MatLab上实现

clear all;

D1=220*2^(5/12);
F=220*2^(8/12);
G=220*2^(10/12);
C=440*2^(3/12);
D=440*2^(5/12);

t2=[0:1/8000:1];      %1/8000是采样频率
t4=[0:1/8000:0.5];
t8=[0:1/8000:0.25];

%衰减包络
e2=1.2*exp(-t2*2.5).*(1-(10*t2+1).^-2);
e4=1.2*exp(-t4*5).*(1-(20*t4+1).^-2);
e8=1.2*exp(-t8*10).*(1-(40*t8+1).^-2);

so4=sin(2*pi*C*t4).*e4;
so8=sin(2*pi*C*t8).*e8;
la8=sin(2*pi*D*t8).*e8;
re2=sin(2*pi*G*t2).*e2;
do4=sin(2*pi*F*t4).*e4;
do8=sin(2*pi*F*t8).*e8;
la18=sin(2*pi*D1*t8).*e8;

M=[so4 so8 la8 re2 do4 do8 la18 re2];
M=resample(M,10000,10595);
sound(M,8000);