close all; clear all;
x = [];
%F = linspace(100,500,5);
F = [100 200 300 400 500];
%F = linspace(1100,1500,5);
R = 0.5; % Data Rate = 0.5 frequency change per sec
%R = 1; % Data Rate = 1 frequency change per sec
%R = 5; % Data Rate = 1 frequency change per sec
%R = 20; % Data Rate = 20 frequency changes per sec
%R = 50; % Data Rate = 50 frequency changes per sec
%R = 100; % Data Rate = 50 frequency changes per sec
for f = F
    [x,Ts] = addTone(x,f,1/R);
    %pause(0.5)
end
plotspec(x,Ts)
xlim(2*max(F)*[-1 1])
sound(x,1/Ts)
