Mercurial > hg > emotion-detection-top-level

view Code/Descriptors/PRAAT/old_formant-singing.txt @ 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$ = "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