
function MOD_sig = make_sine_modulator(FS,Modfreq,LEN)
% function MOD_sig = make_sine_modulator(FS,Modfreq,Width)
% There is no audio input signal for this routine
% MOD_sig is the sub-audio output signal, sampled at the audio sampling rate
% FS in Hz
% Modfreq in Hz
% LEN is the length of the audio signal to be modulated

Modfreq=Modfreq/FS; % modulation frequency in # samples
MOD_sig=zeros(1,LEN);

for n=1:(LEN-1)
   MOD_sig(n)=sin(Modfreq*2*pi*n);
end

