Mercurial > hg > emotion-detection-top-level

annotate 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
rev   line source
Dawn@4 1 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\"
Dawn@4 2 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 3 fileNum = Get number of strings
Dawn@4 4 for ifile to fileNum
Dawn@4 5 select Strings list
Dawn@4 6 fileName$ = Get string... ifile
Dawn@4 7 newFileName$ = fileName$
Dawn@4 8 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'fileName$'
Dawn@4 9 newfilePath$ = dirPath$
Dawn@4 10
Dawn@4 11 newFileName$ = newFileName$-".wav"
Dawn@4 12 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 13 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 14 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 15 Down to FormantTier
Dawn@4 16 newfolder$ = newFileName$ + "_metrics"
Dawn@4 17 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 18 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4 19
Dawn@4 20 select Sound 'newFileName$'
Dawn@4 21 Remove
Dawn@4 22 select Formant 'newFileName$'
Dawn@4 23 Remove
Dawn@4 24 select FormantTier 'newFileName$'
Dawn@4 25 Remove
Dawn@4 26 endfor
Dawn@4 27 select Strings list
Dawn@4 28 Remove
Dawn@4 29
Dawn@4 30
Dawn@4 31 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\"
Dawn@4 32 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 33 fileNum = Get number of strings
Dawn@4 34 for ifile to fileNum
Dawn@4 35 select Strings list
Dawn@4 36 fileName$ = Get string... ifile
Dawn@4 37 newFileName$ = fileName$
Dawn@4 38 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'fileName$'
Dawn@4 39 newfilePath$ = dirPath$
Dawn@4 40
Dawn@4 41 newFileName$ = newFileName$-".wav"
Dawn@4 42 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 43 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 44 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 45 Down to FormantTier
Dawn@4 46 newfolder$ = newFileName$ + "_metrics"
Dawn@4 47 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 48 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4 49
Dawn@4 50 select Sound 'newFileName$'
Dawn@4 51 Remove
Dawn@4 52 select Formant 'newFileName$'
Dawn@4 53 Remove
Dawn@4 54 select FormantTier 'newFileName$'
Dawn@4 55 Remove
Dawn@4 56 endfor
Dawn@4 57 select Strings list
Dawn@4 58 Remove
Dawn@4 59
Dawn@4 60
Dawn@4 61
Dawn@4 62
Dawn@4 63
Dawn@4 64 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\"
Dawn@4 65 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 66 fileNum = Get number of strings
Dawn@4 67 for ifile to fileNum
Dawn@4 68 select Strings list
Dawn@4 69 fileName$ = Get string... ifile
Dawn@4 70 newFileName$ = fileName$
Dawn@4 71 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$'
Dawn@4 72 newfilePath$ = dirPath$
Dawn@4 73
Dawn@4 74 newFileName$ = newFileName$-".wav"
Dawn@4 75 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 76 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 77 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 78 Down to FormantTier
Dawn@4 79 newfolder$ = newFileName$ + "_metrics"
Dawn@4 80 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 81 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4 82
Dawn@4 83 select Sound 'newFileName$'
Dawn@4 84 Remove
Dawn@4 85 select Formant 'newFileName$'
Dawn@4 86 Remove
Dawn@4 87 select FormantTier 'newFileName$'
Dawn@4 88 Remove
Dawn@4 89 endfor
Dawn@4 90 select Strings list
Dawn@4 91 Remove
Dawn@4 92
Dawn@4 93
Dawn@4 94
Dawn@4 95
Dawn@4 96
Dawn@4 97 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\"
Dawn@4 98 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 99 fileNum = Get number of strings
Dawn@4 100 for ifile to fileNum
Dawn@4 101 select Strings list
Dawn@4 102 fileName$ = Get string... ifile
Dawn@4 103 newFileName$ = fileName$
Dawn@4 104 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$'
Dawn@4 105 newfilePath$ = dirPath$
Dawn@4 106
Dawn@4 107 newFileName$ = newFileName$-".wav"
Dawn@4 108 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 109 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 110 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 111 Down to FormantTier
Dawn@4 112 newfolder$ = newFileName$ + "_metrics"
Dawn@4 113 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 114 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4 115
Dawn@4 116 select Sound 'newFileName$'
Dawn@4 117 Remove
Dawn@4 118 select Formant 'newFileName$'
Dawn@4 119 Remove
Dawn@4 120 select FormantTier 'newFileName$'
Dawn@4 121 Remove
Dawn@4 122 endfor
Dawn@4 123 select Strings list
Dawn@4 124 Remove
Dawn@4 125
Dawn@4 126
Dawn@4 127
Dawn@4 128
Dawn@4 129
Dawn@4 130 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\"
Dawn@4 131 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 132 fileNum = Get number of strings
Dawn@4 133 for ifile to fileNum
Dawn@4 134 select Strings list
Dawn@4 135 fileName$ = Get string... ifile
Dawn@4 136 newFileName$ = fileName$
Dawn@4 137 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$'
Dawn@4 138 newfilePath$ = dirPath$
Dawn@4 139
Dawn@4 140 newFileName$ = newFileName$-".wav"
Dawn@4 141 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 142 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 143 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 144 Down to FormantTier
Dawn@4 145 newfolder$ = newFileName$ + "_metrics"
Dawn@4 146 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 147 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4 148
Dawn@4 149 select Sound 'newFileName$'
Dawn@4 150 Remove
Dawn@4 151 select Formant 'newFileName$'
Dawn@4 152 Remove
Dawn@4 153 select FormantTier 'newFileName$'
Dawn@4 154 Remove
Dawn@4 155 endfor
Dawn@4 156 select Strings list
Dawn@4 157 Remove
Dawn@4 158
Dawn@4 159
Dawn@4 160
Dawn@4 161
Dawn@4 162
Dawn@4 163 dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\"
Dawn@4 164 Create Strings as file list... list 'dirPath$'\*.wav
Dawn@4 165 fileNum = Get number of strings
Dawn@4 166 for ifile to fileNum
Dawn@4 167 select Strings list
Dawn@4 168 fileName$ = Get string... ifile
Dawn@4 169 newFileName$ = fileName$
Dawn@4 170 Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$'
Dawn@4 171 newfilePath$ = dirPath$
Dawn@4 172
Dawn@4 173 newFileName$ = newFileName$-".wav"
Dawn@4 174 #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4 175 #To Formant (burg)... 0.01162 3 20000 0.001 50
Dawn@4 176 To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4 177 Down to FormantTier
Dawn@4 178 newfolder$ = newFileName$ + "_metrics"
Dawn@4 179 metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4 180 Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4 181
Dawn@4 182 select Sound 'newFileName$'
Dawn@4 183 Remove
Dawn@4 184 select Formant 'newFileName$'
Dawn@4 185 Remove
Dawn@4 186 select FormantTier 'newFileName$'
Dawn@4 187 Remove
Dawn@4 188 endfor
Dawn@4 189 select Strings list
Dawn@4 190 Remove