% draws figure basesupchirp for GLT paper

T = 1000;
a = T/100;
t = linspace(-.5/a,.5/a,T);
A = 4*sqrt(a); % amplitude scale
g1 = A*logonwh(0,.5/a,T) + 4;   % gaborc : centeres (env and wave move together)
g2 = A*logonwh(.1/a,.25/a,T) + 2;
g3 = A*logonwh(-.2/a,.3/a,T);
g4 = A*logonwh(.05/a,.4/a,T) - 2;
g5 = A*logonwh(.12/a,.25/a,T) - 4;

hold off % NECESSARY TO GET BOX AROUND PLOTS AND LABELLED AXES
clg

axis([-.5 .5 -5.99 5.99])  % 6 conflicts title
plot(t,g1)
hold on
plot(t,g1),plot(t,g2),plot(t,g3),plot(t,g4),plot(t,g5)
title('SOME ONE DIMENSIONAL UP CHIRPS')
xlabel('TIME, normalized to a 1 sec interval')
grid

