matlab演奏愛爾蘭畫眉

clear all;
tune4=0:0.0001:1;
tune8_3=0:0.0001:1.5;
tune8=0:0.0001:0.5;
tune2=0:0.0001:2;
tune2_3=0:0.0001:3;
tune1=0:0.0001:4;
s=@(x,y)sin(2*pi*2^(3/12)*x*y).*(1-10000/size(y,2)*y);
do=440;
re=440*2^(2/12);
mi=440*2^(4/12);
fa=440*2^(5/12);
sol=440*2^(7/12);
la=440*2^(9/12);
xi=440*2^(11/12);
do_1=440*2;
re_1=440*2^(14/12);
mi_1=440*2^(16/12);
y=[s(do,tune8),s(re,tune8),s(mi,tune4),s(re,tune8),s(do,tune8),s(re,tune4),s(mi,tune8),s(sol,tune8),s(la,tune2),s(sol,tune4),s(do_1,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(re,tune4),s(do,tune8),s(re,tune8),s(mi,tune2_3)...
    s(do,tune8),s(re,tune8),s(mi,tune4),s(re,tune8),s(do,tune8),s(re,tune4),s(mi,tune8),s(sol,tune8),s(la,tune2),s(sol,tune4),s(do_1,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(re,tune8_3),s(do,tune8),s(do,tune2_3)...
    s(sol,tune4),s(do_1,tune4),s(xi,tune8),s(sol,tune8),s(la,tune4),s(do_1,tune8),s(la,tune8),s(xi,tune2),s(sol,tune4),s(mi,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(sol,tune8),s(la,tune8),s(do_1,tune8),s(re_1,tune8),s(mi_1,tune2_3)...
    s(sol,tune4),s(do_1,tune4),s(xi,tune8),s(sol,tune8),s(la,tune4),s(do_1,tune8),s(la,tune8),s(xi,tune2),s(sol,tune4),s(mi,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(sol,tune8),s(la,tune8),s(do_1,tune8),s(re_1,tune8),s(do_1,tune2_3)...
    s(do,tune8),s(re,tune8),s(mi,tune4),s(re,tune8),s(do,tune8),s(re,tune4),s(mi,tune8),s(sol,tune8),s(la,tune2),s(sol,tune4),s(do_1,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(re,tune4),s(do,tune8),s(re,tune8),s(mi,tune2_3)...
    s(do,tune8),s(re,tune8),s(mi,tune4),s(re,tune8),s(do,tune8),s(re,tune4),s(mi,tune8),s(sol,tune8),s(la,tune2),s(sol,tune4),s(do_1,tune8),s(sol,tune8),s(la,tune4),s(sol,tune8),s(mi,tune8),s(re,tune8_3),s(do,tune8),s(do,tune1)];
sound(y,10000);