tomwalters@0: % method of class @signal
tomwalters@0: % function sig=genam(sig,fcar,fmod,modgrad)
tomwalters@0: %
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %       sig: original @signal with length and samplerate 
tomwalters@0: %       fcar: carrier frequency (Hz)
tomwalters@0: %       fmod: modulation frequency (Hz)
tomwalters@0: %       modgrad: modulation depth in (0-1)
tomwalters@0: % 
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %       sig:  @signal 
tomwalters@0: %
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
bleeck@3: 
tomwalters@0: 
tomwalters@0: function sig=genam(sig,fc,f0,modgrad)
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sr=getsr(sig);
tomwalters@0: len=getlength(sig);
tomwalters@0: 
tomwalters@0: f1=fc-f0;
tomwalters@0: f2=fc;
tomwalters@0: f3=fc+f0;
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sin1=sinus(len,sr,f1,modgrad/2,0);
tomwalters@0: sin2=sinus(len,sr,f2,1,0);
tomwalters@0: sin3=sinus(len,sr,f3,modgrad/2,0);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sig=sin1;
tomwalters@0: sig=sig+sin2;
tomwalters@0: sig=sig+sin3;
tomwalters@0: 
tomwalters@0: name=sprintf('AM: modulation: %3.1f Hz, carrier: %4.1f kHz, modgrad: %2.1f',f0,fc/1000,modgrad);
tomwalters@0: sig=setname(sig,name);
tomwalters@0: sig=scaletomaxvalue(sig,1);
tomwalters@0: % sig=RampAmplitude(sig,0.01); % baue eine Rampe
tomwalters@0: