diff Code/Descriptors/PRAAT/old_formant-singing.txt @ 4:92ca03a8fa99 tip

Update to ICASSP 2013 benchmark
author Dawn Black
date Wed, 13 Feb 2013 11:02:39 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Code/Descriptors/PRAAT/old_formant-singing.txt	Wed Feb 13 11:02:39 2013 +0000
@@ -0,0 +1,190 @@
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50 
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+
+
+
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+
+
+
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+
+
+
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+
+
+
+dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\"
+Create Strings as file list... list  'dirPath$'\*.wav
+fileNum = Get number of strings
+for ifile to fileNum
+select Strings list
+fileName$ = Get string... ifile
+newFileName$ = fileName$
+Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+#To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
+#To Formant (burg)... 0.01162 3 20000 0.001 50 
+To Formant (keep all)... 0.01162 3 20000 0.001 50
+Down to FormantTier
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_Formant_all"
+Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
+
+select Sound 'newFileName$'
+Remove
+select Formant 'newFileName$'
+Remove
+select FormantTier 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove