s1_4.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)+0.2*sin(4*pi*C*t4)+0.3*sin(6*pi*C*t4)).*e4;
so8=(sin(2*pi*C*t8)+0.2*sin(4*pi*C*t8)+0.3*sin(6*pi*C*t8)).*e8;
la8=(sin(2*pi*D*t8)+0.2*sin(4*pi*D*t8)+0.3*sin(6*pi*D*t8)).*e8;
re2=(sin(2*pi*G*t2)+0.2*sin(4*pi*G*t2)+0.3*sin(6*pi*G*t2)).*e2;
do4=(sin(2*pi*F*t4)+0.2*sin(4*pi*F*t4)+0.3*sin(6*pi*F*t4)).*e4;
do8=(sin(2*pi*F*t8)+0.2*sin(4*pi*F*t8)+0.3*sin(6*pi*F*t8)).*e8;
la18=(sin(2*pi*D1*t8)+0.2*sin(4*pi*D1*t8)+0.3*sin(6*pi*D1*t8)).*e8;

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