[Y,FS,BITS]=wavread('y'); %extracts info on wav file
sound(Y,FS,BITS); 	% Play Orginial wave 
plot(Y);					% Plot Y verse Samples
title('utterance /eI/ from away');
xlabel('Samples n'),ylabel('Amplitude');
nsamples = length(Y)
zoom
display('Select zoom in on eI to select quasi period');
pause;
[xcoord, ycoord] = ginput(5);
xcoord = round(xcoord);
eI_per_n(1) = abs(xcoord(1)-xcoord(2));
eI_per_n(2) = abs(xcoord(2)-xcoord(3));
eI_per_n(3) = abs(xcoord(3)-xcoord(4));
eI_per_n(4) = abs(xcoord(4)-xcoord(5));
eI_per_n_avg = mean(eI_per_n)
eI_per_t_avg =  eI_per_n_avg / FS
eI_freq_avg = 1 / eI_per_t_avg
