<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
# This Praat script will get average F1, F2, and F3 of all the intervals of the all files in the specified folder.
# Version: 3 Feb 2010
# Author: Shigeto Kawahara
# To use, you must have sound files and the corresponding text grids with the same name.


form Get F1, F2, F3
	sentence Directory ./
	comment If you want to analyze all the files, leave this blank
	word Base_file_name 
	comment The name of result file (don't change this)
	text textfile result.txt
endform

# Write-out the header

fileappend result.txt soundname'tab$'intervalname'tab$'F1'tab$'F2'tab$'F3'tab$' 
fileappend result.txt 'newline$'

#Read all files in a folder
Create Strings as file list... wavlist 'directory$'/'base_file_name$'*.wav
Create Strings as file list... gridlist 'directory$'/'base_file_name$'*.TextGrid
n = Get number of strings

for i to n
clearinfo

#We first extract a formant tier
	select Strings wavlist
	filename$ = Get string... i
	Read from file... 'directory$'/'filename$'
	soundname$ = selected$ ("Sound")
	To Formant (burg)... 0 5 5500 0.025 50

# We now read grid files and extract all intervals in them
	select Strings gridlist
	gridname$ = Get string... i
	Read from file... 'directory$'/'gridname$'
	int=Get number of intervals... 1

# We then calculate F1, F2 and F3

for k from 1 to 'int'
	select TextGrid 'soundname$'
	label$ = Get label of interval... 1 'k'
	if label$ <> ""

	# calculates the onset and offset
 		vowel_onset = Get starting point... 1 'k'
  		vowel_offset = Get end point... 1 'k'

		select Formant 'soundname$'
		f_one = Get mean... 1 vowel_onset vowel_offset Hertz
		f_two = Get mean... 2 vowel_onset vowel_offset Hertz
		f_three = Get mean... 3 vowel_onset vowel_offset Hertz
		resultline$ = "'soundname$''tab$''label$''tab$''f_one''tab$''f_two''tab$''f_three''tab$'"
		fileappend result.txt 'resultline$'
	endif
endfor

fileappend result.txt 'newline$'

	
endfor

# clean up

select all
Remove