Mercurial > hg > emotion-detection-top-level
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 3:e1cfa7765647 | 4:92ca03a8fa99 |
|---|---|
| 1 dirPath$ = "D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$' | |
| 9 newfilePath$ = dirPath$ | |
| 10 | |
| 11 newFileName$ = newFileName$-".wav" | |
| 12 To PointProcess (extrema)... 1 yes no Sinc70 | |
| 13 c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3 | |
| 14 newfolder$ = newFileName$ + "_metrics" | |
| 15 metricFilename$ = newFileName$ + "_jitter_local" | |
| 16 Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt | |
| 17 c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt | |
| 18 | |
| 19 select PointProcess 'newFileName$' | |
| 20 Remove | |
| 21 select Sound 'newFileName$' | |
| 22 Remove | |
| 23 endfor | |
| 24 select Strings list | |
| 25 Remove | |
| 26 | |
| 27 | |
| 28 dirPath$ = "D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\" | |
| 29 Create Strings as file list... list 'dirPath$'\*.wav | |
| 30 fileNum = Get number of strings | |
| 31 for ifile to fileNum | |
| 32 select Strings list | |
| 33 fileName$ = Get string... ifile | |
| 34 newFileName$ = fileName$ | |
| 35 Read from file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$' | |
| 36 newfilePath$ = dirPath$ | |
| 37 | |
| 38 newFileName$ = newFileName$-".wav" | |
| 39 To PointProcess (extrema)... 1 yes no Sinc70 | |
| 40 c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3 | |
| 41 newfolder$ = newFileName$ + "_metrics" | |
| 42 metricFilename$ = newFileName$ + "_jitter_local" | |
| 43 Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt | |
| 44 c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt | |
| 45 | |
| 46 select PointProcess 'newFileName$' | |
| 47 Remove | |
| 48 select Sound 'newFileName$' | |
| 49 Remove | |
| 50 endfor | |
| 51 select Strings list | |
| 52 Remove | |
| 53 | |
| 54 | |
| 55 dirPath$ = "D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\" | |
| 56 Create Strings as file list... list 'dirPath$'\*.wav | |
| 57 fileNum = Get number of strings | |
| 58 for ifile to fileNum | |
| 59 select Strings list | |
| 60 fileName$ = Get string... ifile | |
| 61 newFileName$ = fileName$ | |
| 62 Read from file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$' | |
| 63 newfilePath$ = dirPath$ | |
| 64 | |
| 65 newFileName$ = newFileName$-".wav" | |
| 66 To PointProcess (extrema)... 1 yes no Sinc70 | |
| 67 c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3 | |
| 68 newfolder$ = newFileName$ + "_metrics" | |
| 69 metricFilename$ = newFileName$ + "_jitter_local" | |
| 70 Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt | |
| 71 c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt | |
| 72 | |
| 73 select PointProcess 'newFileName$' | |
| 74 Remove | |
| 75 select Sound 'newFileName$' | |
| 76 Remove | |
| 77 endfor | |
| 78 select Strings list | |
| 79 Remove | |
| 80 | |
| 81 dirPath$ = "D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\" | |
| 82 Create Strings as file list... list 'dirPath$'\*.wav | |
| 83 fileNum = Get number of strings | |
| 84 for ifile to fileNum | |
| 85 select Strings list | |
| 86 fileName$ = Get string... ifile | |
| 87 newFileName$ = fileName$ | |
| 88 Read from file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$' | |
| 89 newfilePath$ = dirPath$ | |
| 90 | |
| 91 newFileName$ = newFileName$-".wav" | |
| 92 To PointProcess (extrema)... 1 yes no Sinc70 | |
| 93 c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3 | |
| 94 newfolder$ = newFileName$ + "_metrics" | |
| 95 metricFilename$ = newFileName$ + "_jitter_local" | |
| 96 Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt | |
| 97 c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt | |
| 98 | |
| 99 select PointProcess 'newFileName$' | |
| 100 Remove | |
| 101 select Sound 'newFileName$' | |
| 102 Remove | |
| 103 endfor | |
| 104 select Strings list | |
| 105 Remove | |
| 106 | |
| 107 | |
| 108 |