syn_music.asv

很多matlab的源代码

figure('position',[100 100 400 300],'name','music');
p1_string = {'1.数星星'
            '2.小蜜蜂'
            '3.两只老虎'
            '4.欢乐颂'
            };
n=1:2000;
k=1:1000;
m=1:4000;
fs=8192;
fdo=524;
fre=fdo*power(2,2/12);
fmi=fdo*power(2,4/12);
ffa=fdo*power(2,5/12);
fso=fdo*power(2,7/12);
fla=fdo*power(2,9/12);
fsi=fdo*power(2,11/12);
s=10;
fsoj=fso/2;
fsij=fsi/2;


do=sin(n*2*pi*fdo/fs);
re=sin(n*2*pi*fre/fs);
mi=sin(n*2*pi*fmi/fs);
fa=sin(n*2*pi*ffa/fs);
so=sin(n*2*pi*fso/fs);
la=sin(n*2*pi*fla/fs);
si=sin(n*2*pi*fsi/fs);
s=sin(n*2*pi*s/fs);
soj=sin(n*2*pi*fsoj/fs);
sij=sin(n*2*pi*fsij/fs);

mdo=sin(m*2*pi*fdo/fs);
mre=sin(m*2*pi*fre/fs);
mmi=sin(m*2*pi*fmi/fs);
mfa=sin(m*2*pi*ffa/fs);
mso=sin(m*2*pi*fso/fs);
mla=sin(m*2*pi*fla/fs);
msi=sin(m*2*pi*fsi/fs);

msoj=sin(m*2*pi*fsoj/fs);
msij=sin(m*2*pi*fsij/fs);

kdo=sin(k*2*pi*fdo/fs);
kre=sin(k*2*pi*fre/fs);
kmi=sin(k*2*pi*fmi/fs);
kfa=sin(k*2*pi*ffa/fs);
kso=sin(k*2*pi*fso/fs);
kla=sin(k*2*pi*fla/fs);
ksi=sin(k*2*pi*fsi/fs);

ksoj=sin(k*2*pi*fsoj/fs);
ksij=sin(k*2*pi*fsij/fs);

h1=[do do so so la la so  s fa fa mi mi re re do  s so so fa fa mi mi re s  so so fa fa mi mi re s  do do so so la la so s  fa fa mi mi re re do];
h2=[so mi mi s fa re re s do re mi fa so so so s so mi mi mi  fa re re re  do re mi mi mdo s re re re re re mi fa s mi mi mi mi mi fa so s  so  mi mi mi  fa re re re  do re mi mi mdo];
h3=[do re mi do  do re mi do   mi fa so s mi fa so s kso kla kso kfa mi  do  kso kla kso kfa mi  do  re soj do s re soj do];
h4=[mi mi fa so  so fa mi re  do do re mi mi re re s mi mi fa so  so fa mi re  do do re mi re do do s re re mi do  re kmi kfa mi  do re kmi kfa mi re do re  soj s mi  kmi  kmi fa so so kfa kmi fa  re  do kdo kdo  re mi re do mdo];
run1_m={
'sound(h1,fs)',
'sound(h2,fs)',
'sound(h3,fs)',
'sound(h4,fs)'
};
p1=uicontrol('style','popupmenu',...
'position',[150 250 200 20],...
'string',p1_string,...
'Callback',['num=get(p1,''value'');','eval(run1_m{num})']);

Hc_close=uicontrol(gcf,'style','push',...
'position',[200 120 100 25],...
'string','Close',...
'Callback','Close');

Hc_run=uicontrol(gcf,'style','push',...
'position',[50 120 100 25],...
'string','Info',...
'Callback','musichlp');