% ring_mod.m
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

filename='IlikeMM.wav';


% read the sample waveform
[x,Fs,bits] = wavread(filename);

index = 1:length(x);

% Ring Modulate with a sine wave frequency Fc

Fc = 800;

carrier= sin(2*pi*index*(Fc/Fs))'; 


y = x.*carrier;

% write output
wavwrite(y,Fs,bits,'IlikeMM_ringmod.wav');