Minggu, 27 November 2011

Matlab Lagu

Hanya sekedar share tugas bikin lagu pake matlab 'Check it out'

JUDUL LAGU ‘BENDERA PUSAKA’

clc;clf;

Fs=16000;

t=0:1/Fs:0.5;

c0=sin(2*pi*130.81*t);

d0=sin(2*pi*146.83*t);

e0=sin(2*pi*164.81*t);

f0=sin(2*pi*174.61*t);

g0=sin(2*pi*196.00*t);

a0=sin(2*pi*220.00*t);

b0=sin(2*pi*246.94*t);

c=sin(2*pi*261.63*t);

d=sin(2*pi*293.66*t);

e=sin(2*pi*329.63*t);

f=sin(2*pi*249.23*t);

g=sin(2*pi*392.00*t);

a=sin(2*pi*440.00*t);

b=sin(2*pi*493.88*t);

nol=[zeros(size(t))];

c1=sin(2*pi*523.25*t);

d1=sin(2*pi*587.88*t);

e1=sin(2*pi*659.25*t);

f1=sin(2*pi*698.46*t);

g1=sin(2*pi*783.99*t);

a1=sin(2*pi*880.00*t);

b1=sin(2*pi*987.77*t);

fkress=sin(2*pi*369.99*t);

akress=sin(2*pi*232.08*t);

nada1=[g0,c,e,nol,c,g0,c,e,a,g,nol,e,nol,c,c,c,nol,b0,c,b0];

nada2=[c,e,d,nol,nol,g0,c,e,nol,c,g0,c,b0,akress,a,nol,f,nol,d,b0];

nada3=[c,nol,g,fkress,g,f,b0,c,nol,nol,g,g,g,nol,a,g,f,d,b0,g0,nol];

nada4=[nol,e,e,e,nol,f,e,d,c,b0,a0,nol,nol,a0,b0,c,b0,c,d];

nada5=[e,f,a,nol,g,nol,g0,c,e,nol,g,fkress,g,f,b0,c,nol,nol]

lagu=[nada1,nada2,nada3,nada4,nada5];

sound(lagu,Fs)

subplot(211)

plot(lagu)

title('Fs 800 Hz')

subplot(212)

stem(lagu)

wavwrite(lagu,'benderapustaka.wav')

Tidak ada komentar:

Posting Komentar

Minggu, 27 November 2011

Matlab Lagu

Hanya sekedar share tugas bikin lagu pake matlab 'Check it out'

JUDUL LAGU ‘BENDERA PUSAKA’

clc;clf;

Fs=16000;

t=0:1/Fs:0.5;

c0=sin(2*pi*130.81*t);

d0=sin(2*pi*146.83*t);

e0=sin(2*pi*164.81*t);

f0=sin(2*pi*174.61*t);

g0=sin(2*pi*196.00*t);

a0=sin(2*pi*220.00*t);

b0=sin(2*pi*246.94*t);

c=sin(2*pi*261.63*t);

d=sin(2*pi*293.66*t);

e=sin(2*pi*329.63*t);

f=sin(2*pi*249.23*t);

g=sin(2*pi*392.00*t);

a=sin(2*pi*440.00*t);

b=sin(2*pi*493.88*t);

nol=[zeros(size(t))];

c1=sin(2*pi*523.25*t);

d1=sin(2*pi*587.88*t);

e1=sin(2*pi*659.25*t);

f1=sin(2*pi*698.46*t);

g1=sin(2*pi*783.99*t);

a1=sin(2*pi*880.00*t);

b1=sin(2*pi*987.77*t);

fkress=sin(2*pi*369.99*t);

akress=sin(2*pi*232.08*t);

nada1=[g0,c,e,nol,c,g0,c,e,a,g,nol,e,nol,c,c,c,nol,b0,c,b0];

nada2=[c,e,d,nol,nol,g0,c,e,nol,c,g0,c,b0,akress,a,nol,f,nol,d,b0];

nada3=[c,nol,g,fkress,g,f,b0,c,nol,nol,g,g,g,nol,a,g,f,d,b0,g0,nol];

nada4=[nol,e,e,e,nol,f,e,d,c,b0,a0,nol,nol,a0,b0,c,b0,c,d];

nada5=[e,f,a,nol,g,nol,g0,c,e,nol,g,fkress,g,f,b0,c,nol,nol]

lagu=[nada1,nada2,nada3,nada4,nada5];

sound(lagu,Fs)

subplot(211)

plot(lagu)

title('Fs 800 Hz')

subplot(212)

stem(lagu)

wavwrite(lagu,'benderapustaka.wav')

Tidak ada komentar:

Posting Komentar