Dawn@4: #This file is used to extract all the jitter value of the singing database
Dawn@4: #All formant results would be saved into a txt file for each sample
Dawn@4: 
Dawn@4: 
Dawn@4: for folder from 1 to 4
Dawn@4: 
Dawn@4: 	if ( folder = 1 )
Dawn@4: 	  folderName$ = "WangXinnong\pos\"
Dawn@4: 	elsif ( folder = 2 )
Dawn@4: 	  folderName$ = "WangXinnong\neg\"
Dawn@4: 	elsif ( folder = 3 )
Dawn@4: 	  folderName$ = "ZhangShuo\pos\"
Dawn@4: 	elsif ( folder = 4 )
Dawn@4: 	  folderName$ = "ZhangShuo\neg\"
Dawn@4: 	endif
Dawn@4: 
Dawn@4: 	for method from 1 to 3
Dawn@4: 
Dawn@4: 	  if ( method = 1 )
Dawn@4: 	    theMethod$ = "robust"
Dawn@4: 	  elsif ( method = 2 )
Dawn@4: 	    theMethod$ = "Burg"
Dawn@4: 	  elsif ( method = 3 )
Dawn@4: 	    theMethod$ = "all"
Dawn@4: 	  endif
Dawn@4: 
Dawn@4: 	  dirPath$ = "C:\Users\Dawn\Dropbox\BUPTResearch2011\Data\Opera\PaperDatabase\" + folderName$
Dawn@4:   	  Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: 	  fileNum = Get number of strings
Dawn@4: 	  for ifile to fileNum
Dawn@4: 	    select Strings list
Dawn@4: 	    fileName$ = Get string... ifile
Dawn@4: 	    newFileName$ = fileName$
Dawn@4: 	    Read from file... 'dirPath$''fileName$'
Dawn@4:   	    newfilePath$ = dirPath$
Dawn@4: 
Dawn@4:   	    newFileName$ = newFileName$-".wav"
Dawn@4: 	    #To PointProcess (extrema)... 1 yes no Sinc70
Dawn@4: 
Dawn@4: 	    if ( method = 1 )
Dawn@4: 	      To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: 	    elsif ( method = 2 )
Dawn@4: 	      To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: 	    elsif ( method = 3 )
Dawn@4: 	      To Formant (keep all)... 0.01162 3 20000 0.001 50 
Dawn@4: 	    endif
Dawn@4: 
Dawn@4: 	    Down to FormantTier
Dawn@4: 	    newfolder$ = newFileName$ + "_metrics"
Dawn@4: 	    metricFilename$ = newFileName$ + "_Formant_" + theMethod$
Dawn@4: 	    #c$ > 'dirPath$''newfolder$'\'metricFilename$'.txt
Dawn@4:             Write to text file... 'dirPath$''newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: 	    select Sound 'newFileName$'
Dawn@4: 	    Remove
Dawn@4: 	    select Formant 'newFileName$'
Dawn@4: 	    Remove
Dawn@4: 	    select FormantTier 'newFileName$'
Dawn@4: 	    Remove
Dawn@4: 
Dawn@4: 	  endfor
Dawn@4: 	  select Strings list
Dawn@4: 	  Remove
Dawn@4: 	endfor
Dawn@4: endfor