% Ucitavanje podataka, nadotipkavanje za faktor 4
[y, fs] = wavread('wav\s01.wav');
yi = resample(y, 4, 1);

% Inicijalizacija klastera
% if ~exist('numlab')
%     dctconfig('hostname', '161.53.64.252')
%     cluster_init
% end

% EMD
% imf = emd_cluster(yi);
% save imf_s01 imf
load imf_s01

% HHT
[a, f] = hhspectrum2(imf);

% Prikaz rezultata
imf_toimage(a, f, 4*fs, 'lin', 0, [0 4000] );

% Deinicijalizacija klastera
% if ~exist('numlab')
%     clear numlab
%     cluster_stop
% end
