% draws figure with examples of affine bases
% shows basesaffine in the time domain

[g1,t] = gabor_kernel(10*4,.125/4,-.33);   % gaborc : centeres (env and wave move together)
g1 = g1 + 2;
g2 = gabor_kernel(10*2,.125/2) + 4;
g3 = gabor_kernel(10,.125,.125);
g4 = real(gabor_kernel(10/2,.125*2,0)) - 2;
g5 = gabor_kernel(10/4,.125*4,-.25) - 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 GABOR FUNCTIONS WHICH BELONG TO THE AFFINE GROUP')
xlabel('TIME, normalized to a 1 sec interval')
grid

