% ACF and SDF

global sr;				% sampling rate
sr = 10000;
range = 0.012; 		% s
windowsize = 0.01;		% s
D = 0.1; 			% s duration

% fundamental and formants
f0 = 100;
f1 = 750;
f2 = 1187;
f3 =2595;

y = makevowel(sr*D, f0, sr, f1, f2, f3);

subplot(2,1,1);
yy = acf2(y, range*sr, windowsize*sr);
plot1(yy);
set(get(gca, 'title'), 'String',...
	'ACF');

subplot(2,1,2);
yy = sdf2(y, range*sr, windowsize*sr);
plot1(yy);
set(get(gca, 'title'), 'String',...
	'SDF');