Rabu, 06 November 2013

Membuat Ringtone Menggunakan Matlab

Tugas Mata kuliah Pengolahan Jaringan kali ini adalah membuat ringtone sederhana. Di bawah ini adalah contoh ringtone yang telah saya buat :
1. Suwe Ora Jamu :
fs=8000; % frekuensi sampling 8kHz
t=0:2/fs:0.50; % panjang not ¼ detik
c=sin(2*pi*262*t); % nada c
d=sin(2*pi*294*t); % nada d
e=sin(2*pi*330*t); % nada e
f=sin(2*pi*349*t); % nada f
g=sin(2*pi*392*t); % nada g
a=sin(2*pi*440*t); % nada a
b=sin(2*pi*494*t); % nada b
c1=sin(2*pi*523*t); % nada C
nol=zeros(size(t)); % spasi kosong
nadax=[e,nol,g,nol,nol,g,e,nol,f,nol,g,nol,nol,nol...
            e,nol,f,nol,nol,g,f,nol,e,nol,f,nol,nol,nol...
            g,nol,b,nol,nol,b,c1,c1,nol,c1,b,nol,nol,b,a,a,nol,a,f,nol,nol,f,f,e,nol,e,nol,c1,nol];
sound(nadax,fs); % mainkan pada fs 8kHz
wavwrite(nadax,'c:\suwe ora jamu_komdat.wav'); % simpan ke file WAV

2. Gundul-Gundul Pacul
fs=8000; % frekuensi sampling 8kHz
t=0:2/fs:0.25; % panjang not ¼ detik
c=sin(2*pi*262*t); % nada c
d=sin(2*pi*294*t); % nada d
e=sin(2*pi*330*t); % nada e
f=sin(2*pi*349*t); % nada f
g=sin(2*pi*392*t); % nada g
a=sin(2*pi*440*t); % nada a
b=sin(2*pi*494*t); % nada b
c1=sin(2*pi*523*t); % nada C
d1=sin(2*pi*587*t); % nada D
e1=sin(2*pi*659*t); % nada E
f1=sin(2*pi*699*t); % nada F
g1=sin(2*pi*784*t); % nada G
a1=sin(2*pi*880*t); % nada A
b1=sin(2*pi*989*t); % nada B
nol=zeros(size(t)); % spasi kosong
nadax=[c,nol,e,nol,c,nol,e,nol,f,nol,g,nol,g,nol,nol,nol,b,nol,c1,nol,b,nol,c1,nol,b,nol,g,nol,nol,nol...
       c,nol,e,nol,c,nol,e,nol,f,nol,g,nol,g,nol,nol,nol,b,nol,c1,nol,b,nol,c1,nol,b,nol,g,nol,nol,nol,c,nol...
       e,nol,nol,nol,g,nol,nol,f,nol,f,nol,g,nol,f,nol,e,nol,c,nol,f,nol,e,nol,c,nol,nol,nol,c,nol...
       e,nol,nol,nol,g,nol,nol,f,nol,f,nol,g,nol,f,nol,e,nol,c,nol,f,nol,e,nol,c];
sound(nadax,fs); % mainkan pada fs 8kHz
wavwrite(nadax,'D:\gundul pacul.wav'); % simpan ke file WAV

Selamat Mencoba....!!!!

1 komentar:

  1. How to make money at casinos - WorkPokie
    Casino gambling and online casinos 1xbet are an exciting and exciting experience for people looking to งานออนไลน์ take their online gaming to the next 제왕 카지노 level. As

    BalasHapus