大约在冬季matlab创作音乐.docVIP

大约在冬季matlab创作音乐 clc clear fs=44100;%采样频率 dt=1/fs; %全音符 amp1=amp(1,fs); dol1=amp1.*key(-12,1,fs); rel1=amp1.*key(-10,1,fs); mil1=amp1.*key(-8,1,fs); fal1=amp1.*key(-7,1,fs); sol1=amp1.*key(-5,1,fs); lal1=amp1.*key(-3,1,fs); sil1=amp1.*key(-1,1,fs); do1=amp1.*key(0,1,fs); re1=amp1.*key(2,1,fs); mi1=amp1.*key(4,1,fs); fa1=amp1.*key(5,1,fs); so1=amp1.*key(7,1,fs); la1=amp1.*key(9,1,fs); si1=amp1.*key(11,1,fs); doh1=amp1.*key(0+12,1,fs); reh1=amp1.*key(2+12,1,fs); mih1=amp1.*key(4+12,1,fs); fah1=amp1.*key(5+12,1,fs); soh1=amp1.*key(7+12,1,fs); lah1=amp1.*key(9+12,1,fs); sih1=amp1.*key(11+12,1,fs); %2分音符 amp2=amp(2,fs); dol2=amp2.*key(0-12,2,fs); rel2=amp2.*key(2-12,2,fs); mil2=amp2.*key(4-12,2,fs); fal2=amp2.*key(5-12,2,fs); sol2=amp2.*key(7-12,2,fs); lal2=amp2.*key(9-12,2,fs); sil2=amp2.*key(11-12,2,fs); do2=amp2.*key(0,2,fs); re2=amp2.*key(2,2,fs); mi2=amp2.*key(4,2,fs); fa2=amp2.*key(5,2,fs); so2=amp2.*key(7,2,fs); la2=amp2.*key(9,2,fs); si2=amp2.*key(11,2,fs); doh2=amp2.*key(0+12,2,fs); reh2=amp2.*key(2+12,2,fs); mih2=amp2.*key(4+12,2,fs); fah2=amp2.*key(5+12,2,fs); soh2=amp2.*key(7+12,2,fs); lah2=amp2.*key(9+12,2,fs); sih2=amp2.*key(11+12,2,fs); %4分音符 amp4=amp(4,fs); dol4=amp4.*key(0-12,4,fs); rel4=amp4.*key(2-12,4,fs); mil4=amp4.*key(4-12,4,fs); fal4=amp4.*key(5-12,4,fs); sol4=amp4.*key(7-12,4,fs); lal4=amp4.*key(9-12,4,fs); sil4=amp4.*key(11-12,4,fs); do4=amp4.*key(0,4,fs); re4=amp4.*key(2,4,fs); mi4=amp4.*key(4,4,fs); fa4=amp4.*key(5,4,fs); so4=amp4.*key(7,4,fs); la4=amp4.*key(9,4,fs); si4=amp4.*key(11,4,fs); doh4=amp4.*key(0+12,4,fs); reh4=amp4.*key(2+12,4,fs); mih4=amp4.*key(4+12,4,fs); fah4=amp4.*key(5+12,4,fs); soh4=amp4.*key(7+12,4,fs); lah4=amp4.*key(9+12,4,fs); sih4=amp4.*key(11+12,4,fs); %4分休止符 t=0:dt:0.5; [r i] = size(t); blk4=zeros(1,i); %8分音符 amp8=amp(8,fs); dol8=amp8.*key(0-12,8,fs); rel8=amp8.*key(2-12,8,fs); mil8=amp8.*key(4-12,8,fs); fal8=amp8.*key(5-12,8,fs); sol8=amp8.*key(7-12,8,fs); lal8=amp8.*key(9-12,8,fs); sil8=amp8.*key(11-12,8,fs); do8=am