Mercurial > hg > emotion-detection-top-level

view Code/Descriptors/PRAAT/temp @ 4:92ca03a8fa99 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update to ICASSP 2013 benchmark
author Dawn Black
date Wed, 13 Feb 2013 11:02:39 +0000
parents
children
line wrap: on
line source
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