Lemon
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 wr B(0,2) CS(1,2) DS(1,4) B(0,2) GS(0,6) CS(1,4) AS(0,4) FS(0,2) DS(0,6) AS(0,4)];
r2=[GS(0,4) FS(0,2) B(-1,6) FS(0,4) DS(0,12) CS(0,2) DS(0,2)];
r3=[E(0,8) B(0,4) AS(0,3) B(0,1) FS(0,8) E(0,4) DS(0,3) E(0,1)];
r4=[F(0,8) B(0,4) AS(0,3) GS(0,1) G(0,12) B(0,2) CS(1,2)];
r5=[DS(1,4) B(0,2) GS(0,6) CS(1,4) AS(0,4) FS(0,2) DS(0,6) AS(0,4)];
r7=[E(0,8) FS(0,4) E(0,3) FS(0,1) DS(0,4) FS(0,4) B(0,4) DS(1,4)];
r8=[FS(0,6)+CS(1,6) CS(1,2) FS(0,2)+CS(1,2) B(0,4) B(0,2) DS(0,16)+B(0,16)];
r9=[tw wr B(0,2) CS(1,2) DS(1,4)+GS(0,4) B(0,2) GS(0,6) CS(1,4) AS(0,4)+CS(0,4) FS(0,2) DS(0,6) AS(0,4)];
r10=[GS(0,4)+B(-1,4) FS(0,2) B(-1,6) FS(0,4) DS(0,12)+B(-1,12) CS(0,2) DS(0,2)];
r11=[E(0,8)+B(-1,8) B(0,4) AS(0,2) B(0,2) DS(0,8)+FS(0,8) E(0,4) DS(0,3) E(0,1)];
r12=[GS(-1,8)+B(-1,8)+F(0,8) B(0,4) AS(0,3) GS(0,1) G(0,12)+CS(0,12) B(0,2) CS(1,2)];
r13=[DS(1,4)+GS(0,4) B(0,2) GS(0,6) CS(1,4) AS(0,4)+CS(0,4) FS(0,2) DS(0,6) AS(0,4)];
r14=[E(0,8)+B(-1,8) FS(0,4) E(0,3) FS(0,1) B(-1,4)+DS(0,4) FS(0,4) B(0,4) DS(1,4)];
r15=[G(0,2)+AS(0,2)+CS(1,2) CS(1,6) FS(0,3)+CS(1,3) B(0,5) DS(0,16)+B(0,16)];
r16=[GS(0,6) AS(0,2) B(0,4) AS(0,2) GS(0,2) DS(0,4)+FS(0,4) DS(1,4) DS(1,8)];
r17=[FS(0,6)+AS(0,6)+CS(1,6) DS(1,2) E(1,4) DS(1,2) CS(1,2) FS(0,4)+B(0,4) CS(1,4) FS(0,8)];
r18=[E(0,6) FS(0,2) GS(0,4) FS(0,2) E(0,2) DS(0,4)+B(-1,4) B(0,4) B(0,4) B(0,4)];
r19=[E(0,8)+AS(0,8) E(0,4)+GS(0,4) AS(0,4) DS(0,4)+FS(0,4)+B(0,4) wr GS(0,3)+CS(1,3) DS(1,1) CS(1,3) B(0,1)];
r20=[GS(0,2) B(0,6) B(0,3)+DS(1,3) FS(1,5) CS(1,2)+DS(1,2) B(0,6) GS(0,3)+CS(1,3) DS(1,1) CS(1,3) B(0,1)];
r21=[GS(0,2) B(0,6) B(0,3)+DS(1,3) FS(1,5) GS(0,2)+CS(1,2) B(0,6) GS(0,3)+CS(1,3) DS(1,1) CS(1,3) B(0,1)];
r22=[GS(0,2) B(0,6) B(0,3)+DS(1,3) FS(1,5) B(0,2)+GS(1,2) FS(1,6) FS(1,2) B(1,6)+B(0,6)];
r23=[AS(0,2)+CS(1,2)+AS(1,2) FS(1,6) AS(0,2)+DS(1,2) FS(1,4) CS(1,2) G(0,8)+AS(0,8)+CS(0,8) FS(0,3)+CS(1,3) DS(1,1) CS(1,3) B(0,1)];
r24=[GS(0,2) B(0,6) B(0,3)+DS(1,3) FS(1,5) CS(1,2)+DS(1,2) B(0,6) B(0,3) B(0,1) CS(1,3) DS(1,1)];
r25=[E(1,3)+CS(1,3)+GS(0,3) DS(1,5) CS(1,3)+G(1,3) AS(0,5)];
r26=[DS(0,12)+GS(0,12)+B(0,12) B(0,3) AS(0,1)];
r27=[E(0,4)+GS(0,4) AS(0,4) E(0,4)+B(0,4) CS(1,4) B(0,4)+DS(0,4) FS(0,4) DS(0,2) FS(0,6)];
r28=[E(0,3)+GS(0,3) CS(1,5) AS(0,3)+FS(0,3) B(0,5) DS(0,8)+GS(0,8)+B(0,8)+B(-1,8) GS(0,4)+B(-1,4) B(0,3) AS(0,1)];
r29=[E(0,4)+GS(0,4) AS(0,4) E(0,4)+B(0,4) CS(1,4) B(0,4)+DS(0,4) FS(0,4) B(0,2)+B(-1,2) CS(1,6)];
r30=[FS(0,3)+CS(1,3)+DS(1,3) E(1,5) E(0,3)+AS(0,3)+CS(0,3) B(0,5) B(0,16)+DS(0,16)+B(-1,16)];
l1=[tw tw DS(0,16)+GS(-1,16) CS(0,16)+FS(-1,16)];
l2=[B(-1,16)+E(-1,16) FS(-1,16)+B(-2,16)];
l3=[B(-1,16)+E(-1,16) FS(-1,16)+B(-2,16)];
l4=[B(-1,2)+GS(-1,2)+F(-1,2)+D(-1,2) tw wr hr AS(-1,16)+G(-1,16)+DS(-1,16)];
l5=[DS(0,8)+GS(-1,8)+B(-1,8) DS(0,8) AS(-1,8)+FS(-1,8)+CS(0,8) B(-1,8)];
l6=[GS(-1,8)+B(-2,8)+E(-1,8) GS(-1,8) FS(-1,8)+DS(-1,8)+B(-2,8) FS(-1,8)];
l7=[GS(-1,8)+B(-2,8)+E(-1,8) GS(-1,8) FS(-1,8)+DS(-1,8)+B(-2,8) B(-1,8)];
l8=[CS(0,8)+AS(-1,8)+FS(-1,8) CS(0,8) B(-2,16)+B(-1,16)+FS(-1,16)];
l9=[tw tw GS(-2,4) DS(-1,4) B(-1,4) DS(-1,3) FS(-2,1) FS(-1,4) CS(-1,4) AS(-1,4) CS(-1,4)];
l10=[E(-1,4) B(-2,4) GS(-1,4) B(-2,4) B(-2,4) FS(-1,4) DS(-1,4) FS(-1,4)];
l12=[D(-1,4) B(-2,4) F(-1,4) B(-2,4) DS(-1,4) AS(-2,4) DS(-1,8)+G(-1,8)];
l13=[GS(-1,4) DS(-1,4) B(-1,4) DS(-1,2) FS(-1,6) CS(-1,4) AS(-1,4) CS(-1,4)];
l15=[DS(-1,4) AS(-2,4) DS(-1,6)+G(-1,6) GS(-1,6) DS(-1,4) B(-1,8)+GS(-1,8)];
l16=[GS(-1,8)+E(-1,8)+CS(-1,8) E(0,8) GS(-1,8) B(-1,8)];
l17=[FS(-1,8) CS(0,8) B(-1,8) DS(0,8)];
l18=[GS(-1,8)+E(-1,8)+CS(-1,8) CS(0,8) GS(-1,8)+DS(-1,8) B(-1,8)];
l19=[GS(-1,8)+E(-1,8)+CS(-1,8) FS(-1,8)+CS(-1,8) B(-2,4) B(-2,3) B(-2,1) B(-2,2) hr wr];
l20=[E(-1,4) E(-1,4) E(-1,4)+B(-2,4) E(-1,4) B(-2,4) B(-2,3) B(-2,1) B(-1,4)+FS(-1,4)+DS(-1,4)+B(-2,4) B(-2,4)];
l21=[FS(-1,4) CS(-1,4) CS(-1,4)+AS(-1,4)+FS(-1,4) CS(-1,4) GS(-1,4) GS(-1,3) GS(-1,1) GS(-1,8)+DS(-1,8)];
l23=[FS(-1,4) CS(-1,4) CS(-1,4)+AS(-1,4)+FS(-1,4) CS(-1,4) DS(-1,4) DS(-1,3) DS(-1,1) DS(-1,8)+AS(-2,8)];
l25=[AS(-1,4) AS(-1,4) DS(-1,4) DS(-1,4)];
l26=[GS(-1,4) GS(-1,3) GS(-1,1) GS(-1,4)+DS(-1,4) GS(-1,4)];
l27=[CS(-1,4) GS(-1,4) CS(-1,8)+E(-1,8) GS(-1,4) GS(-1,4) GS(-1,8)+DS(-1,8)];
l28=[E(-1,8) FS(-1,8) F(-1,4) B(-2,4) F(-1,8)];
l29=[CS(-1,4) GS(-1,4) CS(-1,4)+E(-1,4) GS(-1,4) GS(-1,4) GS(-1,4) GS(-1,8)+DS(-1,8)];
l30=[E(-1,8) FS(-1,8) B(-2,4) B(-2,3) B(-2,1) B(-1,8)+FS(-1,8)+DS(-1,8)];
Right=[r1 r2 r3 r4 r5 r2 r7 r8 tw tw r9 r10 r11 r12 r13 r10 r14 r15 r16 r17 r18 r19 r20 r21 r22 r23 r24 r25 r26 r27 r28 r29 r30];
Left= [l1 l2 l3 l4 l5 l6 l7 l8 tw tw l9 l10 l10 l12 l13 l10 l10 l15 l16 l17 l18 l19 l20 l21 l20 l23 l20 l25 l26 l27 l28 l29 l30];
A = [Right+Left];