Mercurial > hg > emotion-detection-top-level

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