praat/test/fon/Sound_to_Formant.praat

# test/fon/Sound_to_Formant.praat
# Paul Boersma, 22 November 2011
# 2017

for i to 30
	duration = randomUniform (0.001, 0.003)
	windowDuration = randomUniform (0.002, 0.005)
	samplingFrequency = randomUniform (16000, 96000)
	sound = Create Sound from formula: "test", 1, 0, duration, samplingFrequency, ~ 1/2 * sin(2*pi*377*x) + randomGauss(0,0.1)
	noprogress To Formant (burg): 0.005, 5, 5500, windowDuration, 50
	plus sound
	Remove
endfor