    function [sbu, sbl, robotsound] = robot( m, fs, fc)
    
    sizem = size(m);
    N = max(sizem);
    t=(0:N-1)/fs;
    mh = imag(hilbert(m)); %Hilbert transform of the message signal
    coswave = (cos(2*pi*fc*t))';
    sinwave = (sin(2*pi*fc*t))';
    sbu = m.*2.*coswave - mh.*2.*sinwave; %Expression for USB SSB
    sbl = m.*2.*coswave + mh.*2.*sinwave; %Expression for LSB SSB
    robotsound = sbu + sbl + m;
    wavwrite(robotsound, fs, 'robotsound.wav');
