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: %
tomwalters@0: % (c) 2003, University of Cambridge, Medical Research Council 
tomwalters@0: % Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual
tomwalters@0: % $Date: 2003/01/25 12:47:43 $
tomwalters@0: % $Revision: 1.4 $
tomwalters@0: 
tomwalters@0: function sig=genam(sig,fc,f_mod,modgrad,modphase,amplitude)
tomwalters@0: 
tomwalters@0: if nargin<6
tomwalters@0:     amplitude=1;
tomwalters@0: end
tomwalters@0: if nargin<6
tomwalters@0:     modphase=0;
tomwalters@0: end
tomwalters@0: if nargin<6
tomwalters@0:     modgrad=1;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sr=getsr(sig);
tomwalters@0: len=getlength(sig);
tomwalters@0: 
tomwalters@0: sin1=sinus(len,sr,fc,1,0);
tomwalters@0: sin2=sinus(len,sr,f_mod,1,modphase);
tomwalters@0: 
tomwalters@0: sig=amplitude(modgrad*sin1+1)*sin2;
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % f1=fc-f_mod;
tomwalters@0: % f2=fc;
tomwalters@0: % f3=fc+f_mod;
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: % 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',f_mod,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: