diff Code/Descriptors/PRAAT/temp @ 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/temp	Wed Feb 13 11:02:39 2013 +0000
@@ -0,0 +1,108 @@
+dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+To PointProcess (extrema)... 1 yes no Sinc70
+c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_jitter_local"
+Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
+c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
+
+select PointProcess 'newFileName$'
+Remove
+select Sound 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+To PointProcess (extrema)... 1 yes no Sinc70
+c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_jitter_local"
+Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
+c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
+
+select PointProcess 'newFileName$'
+Remove
+select Sound 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+To PointProcess (extrema)... 1 yes no Sinc70
+c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_jitter_local"
+Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
+c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
+
+select PointProcess 'newFileName$'
+Remove
+select Sound 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$'
+newfilePath$ = dirPath$
+
+newFileName$ = newFileName$-".wav"
+To PointProcess (extrema)... 1 yes no Sinc70
+c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
+newfolder$ = newFileName$ + "_metrics"
+metricFilename$ = newFileName$ + "_jitter_local"
+Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
+c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
+
+select PointProcess 'newFileName$'
+Remove
+select Sound 'newFileName$'
+Remove
+endfor
+select Strings list
+Remove
+
+
+