function ModSig = AM( Sig, A, fc, fs)
% AM - Amplitude modulation
%
% simulate a signal of the form:
%
% s(t) = (A+m(t))*cos(2*pi*fc*t)
%
% Syntax:
%
% ModSig = AM( Sig, A, fc, fs)

% Author: BPP

tt = (1:length(Sig))/fs;
tt = reshape(tt, size(Sig)); % ensure dimensions match

ModSig = (A + Sig ) .* cos( 2*pi*fc*tt);