% draws figure 1 for "toeplitz" paper

[g1,t] = gabor(20,.25);
g1 = g1 + 2;
g2 = gabor(2,.25) + 4;
g3 = gabor(10,.125,.25);
g4 = imag(gabor(10,.125,0)) - 2;
g5 = gabor(0,.125,-.25) - 4;

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

axis([-.5 .5 -6 6])
plot(t,g1)
hold on
plot(t,g1),plot(t,g2),plot(t,g3),plot(t,g4),plot(t,g5)
title('SOME TYPICAL ONE DIMENSIONAL GABOR FUNCTIONS')
xlabel('TIME, normalized to a 1 sec interval')
