Mercurial > hg > aimmat
annotate aim-mat/tools/@signal/vowel_plus_octave.m @ 4:537f939baef0 tip
various bug fixes and changed copyright message
| author | Stefan Bleeck <bleeck@gmail.com> |
|---|---|
| date | Tue, 16 Aug 2011 14:37:17 +0100 |
| parents | 20ada0af3d7d |
| children |
| rev | line source |
|---|---|
| bleeck@3 | 1 % This external file is included as part of the 'aim-mat' distribution package |
| bleeck@3 | 2 % (c) 2011, University of Southampton |
| bleeck@3 | 3 % Maintained by Stefan Bleeck (bleeck@gmail.com) |
| bleeck@3 | 4 % download of current version is on the soundsoftware site: |
| bleeck@3 | 5 % http://code.soundsoftware.ac.uk/projects/aimmat |
| bleeck@3 | 6 % documentation and everything is on http://www.acousticscale.org |
| tomwalters@0 | 7 function sig=vowel_plus_octave(sig,options,ratio) |
| tomwalters@0 | 8 % construct two artificial vowels with octaves in pitch. The imortant thing |
| tomwalters@0 | 9 % is that the random generator is reset in between, so that all random |
| tomwalters@0 | 10 % elements of each period is identical |
| tomwalters@0 | 11 |
| tomwalters@0 | 12 |
| tomwalters@0 | 13 seed=sum(100*clock); |
| tomwalters@0 | 14 rand('seed',seed); |
| tomwalters@0 | 15 v1=gen_vowel(sig,options); |
| tomwalters@0 | 16 |
| tomwalters@0 | 17 options.do_octave=1; |
| tomwalters@0 | 18 rand('seed',seed); |
| tomwalters@0 | 19 v2=gen_vowel(sig,options); |
| tomwalters@0 | 20 |
| tomwalters@0 | 21 sig=ratio*v1+(1-ratio)*v2; |
| tomwalters@0 | 22 sig=scaletorms(sig,0.2); |
| tomwalters@0 | 23 |