bleeck@3: % This external file is included as part of the 'aim-mat' distribution package
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
tomwalters@0: function sig=vowel_plus_octave(sig,options,ratio)
tomwalters@0: % construct two artificial vowels with octaves in pitch. The imortant thing
tomwalters@0: % is that the random generator is reset in between, so that all random
tomwalters@0: % elements of each period is identical
tomwalters@0: 
tomwalters@0: 
tomwalters@0: seed=sum(100*clock);
tomwalters@0: rand('seed',seed);
tomwalters@0: v1=gen_vowel(sig,options);
tomwalters@0: 
tomwalters@0: options.do_octave=1;
tomwalters@0: rand('seed',seed);
tomwalters@0: v2=gen_vowel(sig,options);
tomwalters@0: 
tomwalters@0: sig=ratio*v1+(1-ratio)*v2;
tomwalters@0: sig=scaletorms(sig,0.2);
tomwalters@0: