Mercurial > hg > emotion-detection-top-level
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 + + +