Music Code

Fs = 44100; %Sampling Frequency

T = 1/Fs; %Sampling Period

global tt;

%% 最好頻率 44100 tempo = 170

%% Define Tempo 單位為16分音符

tempo = tt;

S = 0.25*(60/tempo);

time = [0:T:S];

[x k] = size(time);

t = @(L) linspace(0,L*S,L*k);

%% Define Notes

fA = 440.00; % Master Tuned to A 440

fGS = fA*2^(-1/12);

fG = fGS*2^(-1/12);

fFS = fG*2^(-1/12);

fF = fFS*2^(-1/12);

fE = fF*2^(-1/12);

fDS = fE*2^(-1/12);

fD = fDS*2^(-1/12);

fCS = fD*2^(-1/12);

fC = fCS*2^(-1/12);

fAS = fA*2^(1/12);

fB = fAS*2^(1/12);

A = @(m,L) sin(2*pi*fA*t(L)*2^m);

GS = @(m,L) sin(2*pi*fGS*t(L)*2^m);

G = @(m,L) sin(2*pi*fG*t(L)*2^m);

FS = @(m,L) sin(2*pi*fFS*t(L)*2^m);

F = @(m,L) sin(2*pi*fF*t(L)*2^m);

E = @(m,L) sin(2*pi*fE*t(L)*2^m);

DS = @(m,L) sin(2*pi*fDS*t(L)*2^m);

D = @(m,L) sin(2*pi*fD*t(L)*2^m);

CS = @(m,L) sin(2*pi*fCS*t(L)*2^m);

C = @(m,L) sin(2*pi*fC*t(L)*2^m);

B = @(m,L) sin(2*pi*fB*t(L)*2^m);

AS = @(m,L) sin(2*pi*fAS*t(L)*2^m);

%% 休止符

er = 0*A(0,1/2);% 1/32

qr = 0*A(0,1); % 1/16

hr = 0*A(0,2); % 1/8

wr = 0*A(0,4); % 1/4

tw = 0*A(0,8); % 1/4

%% 音樂

r1=[tw G(1,2) G(1,2) G(1,2) G(1,2) FS(1,2) FS(1,2) FS(1,2) FS(1,2) AS(1,2) AS(1,2) AS(1,2) C(2,2)];

r3=[wr D(1,2) D(1,2) D(1,2) D(1,2) D(1,2) D(1,2)];

r4=[D(0,4) D(1,2) D(1,2) D(1,2) D(1,2) D(1,2) D(1,2)];

r5=[D(0,4) D(1,2) D(1,2) D(1,2) D(1,2) D(1,2) D(0,2)];

r6=[FS(0,2)+D(1,2) D(0,2) FS(0,2)+D(1,2) D(0,2) FS(0,2)+D(1,2) D(0,2) FS(0,2)+D(1,2) D(0,2)];

r7=[wr D(1,2) D(1,2) D(1,2) E(1,2) D(1,2) D(1,2)];

r8=[D(0,4) D(1,2) D(1,2) D(1,2) E(1,2) FS(1,2) A(0,2)+D(1,2)];

r9=[A(0,4)+D(1,4) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) D(0,2)];

r10=[wr D(1,2) A(1,4) A(1,2) G(1,2) G(1,2) FS(1,2) D(1,2) D(1,4) D(1,4) C(1,8) D(1,2) A(1,6) G(1,4)];

r11=[FS(1,2) D(1,2) D(1,4) D(1,2) C(1,2) A(0,4)];

r12=[wr A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2)];

r13=[D(0,4) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2) A(0,2)+D(1,2)];

r14=[tw hr FS(1,2) FS(1,2) G(1,2)];

r15=[A(1,2) G(1,4) FS(1,4) D(1,8) C(1,8) C(1,2) C(1,2) C(1,2)];

r16=[C(1,2)+E(1,2) C(1,2)+E(1,2) C(1,2)+E(1,2) C(1,2)+E(1,2) C(1,4)+E(1,4) D(1,2) D(1,4)+F(1,4) D(1,8) F(1,2) F(1,2) G(1,2)];

r17=[A(1,4) G(1,4) F(1,4) D(1,6) C(1,2) A(0,6) F(1,2) G(1,2) F(1,2)];

r18=[G(1,2) F(1,2) G(1,2) F(1,2) A(1,4) D(1,2)+F(1,2) D(1,4)+F(1,4) D(1,8) D(1,2) D(1,2) D(1,2)];

r19=[D(2,4) G(1,2) G(1,2) G(1,2) F(1,2) G(1,6) F(1,2) D(1,6) F(1,2) G(1,2) F(1,2)];

r20=[G(1,2) F(1,2) G(1,2) F(1,2) A(1,4) D(1,2)+F(1,2) D(1,4)+F(1,4) D(1,2) F(1,4) D(1,8)+F(1,8)+A(1,8)];

r21=[D(1,2) F(1,2) D(1,2) F(1,2) D(1,8)+F(1,8)+A(1,8)];

r22=[D(1,2)+G(1,2) D(1,2)+G(1,2) D(1,2)+G(1,2) D(1,2)+G(1,2) D(1,4)+G(1,4) D(1,4)+G(1,4)];

r23=[wr D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2)];

r24=[D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(1,4)+A(0,4)+FS(0,4)+D(0,4) D(0,2)+D(1,2) D(0,2)+D(1,2)];

r25=[D(0,4)+G(0,4)+AS(0,4)+D(1,4) D(0,2)+G(0,2)+A(0,2)+D(1,2) D(0,2)+G(0,2)+A(0,2)+D(1,2) D(0,2)+G(0,2)+A(0,2)+D(1,2) D(0,2)+G(0,2)+A(0,2)+D(1,2) D(0,4)+G(0,4)+A(0,4)+D(1,4) D(0,4)+G(0,4)+AS(0,4)+D(1,4) D(2,2)+D(1,2) D(2,2)+D(1,2) D(2,2)+D(1,2) D(2,2)+D(1,2) D(2,2)+D(1,2) D(2,2)+D(1,2)];

r26=[D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,4)+A(1,4)+FS(1,4)+D(1,4) D(2,2)+D(1,2) D(2,2)+D(1,2)];

r27=[D(2,4)+G(1,4)+AS(1,4)+D(1,4) D(1,2)+G(1,2)+A(1,2)+D(2,2) D(1,2)+G(1,2)+A(1,2)+D(2,2) D(1,2)+G(1,2)+A(1,2)+D(2,2) D(1,2)+G(1,2)+A(1,2)+D(2,2) D(1,4)+G(1,4)+A(1,4)+D(2,4) D(2,8)+G(1,8)+AS(1,8)+D(1,8) hr D(1,2)+D(2,2) A(1,4)+A(2,4)];

r28=[A(2,6)+A(1,6) G(2,6)+G(1,6) G(2,4)+G(1,4)+C(2,4) G(2,3)+G(1,3)+C(2,3) G(2,3)+G(1,3)+C(2,3) G(2,2)+G(1,2)+C(2,2) G(2,2)+G(1,2)+C(2,2) F(1,2)+F(2,2) D(1,4)+D(2,4)];

r29=[A(2,6)+A(1,6) G(2,6)+G(1,6) G(2,4)+G(1,4)+AS(1,4)+D(2,4) G(2,3)+G(1,3)+AS(1,3)+D(2,3) G(2,3)+G(1,3)+AS(1,3)+D(2,3) G(2,2)+G(1,2)+AS(1,2)+D(2,2) G(2,2)+G(1,2)+AS(1,2) F(1,2)+F(2,2) C(2,4)+C(3,4)];

r30=[A(2,6)+A(1,6) G(2,6)+G(1,6) G(2,4)+G(1,4)+C(2,4) G(2,3)+G(1,3)+C(2,3) G(2,3)+G(1,3)+C(2,3) G(2,2)+G(1,2)+C(2,2) G(2,4)+G(1,4)+C(2,4) F(1,4)+F(2,4)];

r31=[wr D(2,2)+D(3,2) D(2,2)+D(3,2) D(2,2)+D(3,2) D(2,2)+D(3,2) D(2,2)+D(3,2) D(2,2)+D(3,2)];

r32=[D(2,4)+D(3,4) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2) D(1,2)+D(2,2)];

r33=[D(1,8)+D(2,8)];

l1=[D(-1,2) A(-1,2) D(0,2) A(0,2) tw tw tw];

l2=[D(-1,2) A(-1,2) D(0,2) A(0,2) tw tw A(-1,4) wr];

l3=[D(-1,2) A(-1,2) D(0,2) A(-1,2) FS(0,2) A(-1,2) D(0,2) A(-1,2)];

l7=[D(-2,2) D(-1,2) D(-1,2) A(-1,2) FS(0,2) A(-1,2) D(-1,2) A(-1,2)];

l10=[l7 l7 l7];

l11=[D(-2,2) D(-1,2) D(-1,2) A(-1,2) FS(0,8)];

l14=[D(-2,2) A(-2,2) D(-1,2) FS(-1,2) A(-1,2) D(0,2) FS(0,2) A(0,2)];

l15=[D(1,16) A(-2,2) E(-1,2) A(-1,2) C(0,2) E(0,2) A(-1,2) C(0,2) E(0,2)];

l16=[A(0,16) AS(-2,2) F(-1,2) AS(-1,2) D(0,2) F(0,2) AS(-1,2) D(0,2) F(0,2)];

l17=[AS(0,16) G(-2,2) D(-1,2) G(-1,2) B(-1,2) D(0,2) G(-1,2) B(-1,2) D(0,2)];

l18=[G(0,16) D(-2,2) A(-2,2) D(-1,2) F(-1,2) A(-1,2) D(-1,2) F(-1,2) A(-1,2)];

l19=[D(0,2) A(-1,2) F(-1,2) D(-1,2) A(-2,2) F(-2,2) D(-2,2) A(-2,2) A(-2,2) E(-1,2) A(-1,2) C(0,2) E(0,2) A(-1,2) C(0,2) E(0,2)];

l20=[A(0,2) E(0,2) C(0,2) A(-1,2) E(-1,2) C(-1,2) A(-2,2) E(-1,2) AS(-2,2) F(-1,2) AS(-1,2) D(0,2) F(0,2) AS(-1,2) D(0,2) F(0,2)];

l21=[AS(0,2) F(0,2) D(0,2) AS(-1,2) F(-1,2) D(-1,2) AS(-2,2) F(-2,2)];

l22=[AS(-2,2) AS(-2,2) AS(-2,2) AS(-2,2) AS(-2,2) AS(-2,2) AS(-2,4)];

l23=[wr D(-1,2)+D(-2,2) D(-1,2)+D(-2,2) C(-1,2)+C(-2,2) C(-1,2)+C(-2,2) A(-3,2)+A(-2,2) A(-3,2)+A(-2,2)];

l24=[D(-1,6) D(-1,2) FS(-1,4)+A(-1,4) C(-1,2) C(-1,6) C(-1,4) FS(-1,4)+A(-1,4) C(-1,2) C(-1,2)];

l25=[AS(-2,6) AS(-1,2) D(-1,4)+F(-1,4)+AS(-1,4) G(-2,2) G(-1,6) G(-1,4) G(0,4)+D(0,4)+AS(-1,4) G(-1,4)];

l26=[D(-1,6) D(-1,2) FS(-1,4)+A(-1,4)+D(0,4) C(-1,8) C(-1,4) E(-1,4)+A(-1,4)+C(0,4) C(-1,2) C(-1,2)];

l28=[D(-1,6) D(-1,2) FS(-1,4)+A(-1,4)+D(0,4) C(-2,2) C(-2,6) C(-1,4) E(-1,4)+G(-1,4)+C(0,4) C(-2,2) C(-1,2)];

l30=[D(-1,6) D(-1,2) FS(-1,4)+A(-1,4)+D(0,4) C(-1,8) C(-1,4) E(-1,4)+A(-1,4)+C(0,4) C(-1,4)];

l31=[AS(-2,6) AS(-2,2) AS(-1,4)+D(-1,4)+F(-1,4) A(-2,2) A(-2,2)];

l32=[tw D(-1,2)+D(0,2) C(-1,2)+C(0,2) A(-2,2)+A(-1,2) G(-2,2)+G(-1,2)];

l33=[D(-1,8)+D(-2,8)];

Right=[r1 r1 r1 r1 r3 r4 r5 r6 r7 r8 r9 r9 r10 r11 r12 r13 r5 r6 r14 r15 r16 r17 r18 r19 r20 r21 r22 r23 r24 r25 r26 r27 r28 r29 r30 r31 r32 r33];

Left= [l1 l1 l1 l2 l3 l3 l3 l3 l3 l3 l3 l3 l10 l11 l7 l7 l7 l11 l14 l15 l16 l17 l18 l19 l20 l21 l22 l23 l24 l25 l26 l25 l28 l25 l30 l31 l32 l33];

A = [2*Right+Left];