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