Gammatone.rar_Gammatone_distantllf_matlab_realwi1

clear all close all clc folderget=uigetdir('Pilih Folder Berisi Suara Sampel Training (Baju/Abu/Guyub)'); folder=strcat(folderget,'\'); content=dir(strcat(folder,'\*.mp3')); Rp = 1; % Passband Ripple (dB) Rs = 150; % Stopband Ripple (dB) FITURTAB=[]; TARGET=[]; for i=1:length(content); [S,FS]=audioread(strcat(folder,content(i).name)); % Filtering (Noise Removal) Fn = FS/2; % Nyquist Frequency (Hz) Wp = 1000/Fn; % Passband Frequency (Normalised) Ws = 1010/Fn; % Stopband Frequency (Normalised) [n,Ws] = cheb2ord(Wp,Ws,Rp,Rs); % Filter Order [z,p,k] = cheby2(n,Rs,Ws,'low'); % Filter Design [soslp,glp] = zp2sos(z,p,k); % Convert To Second-Order-Section For Stability SF = filtfilt(soslp, glp, S); %filtered sound r = gammatone(SF, 64, 100:FS/2, FS); % gammatone filtering E=shannonenergy(r); % fitur shanon energy dari hasil gammatone filtering FITUR=E; class=str2double(content(i).name(1,1)); TARGET=[TARGET;class]; FITURTAB=[FITURTAB;FITUR]; end % UJI STATISTIK [~,N]=size(FITURTAB); for n=1:N X1=FITURTAB(1:2,n); X2=FITURTAB(3:end,n); h(n)=ttest2(X1,X2); %h=0, perbedaan tidak signifikan, h=1 perbedaan %signifikan end disp('Hasil uji-t =') disp(h)