%------------Example 1.5  -------------------------------------
                 clf;     
                 set(0, 'DefaultAxesFontSize', 12);
                 set(0, 'DefaultAxesFontName', 'Times')

N = 1024;
f = MakeChirps('Chirps',N);

% axes handles
        delta = 1/15;
        unit = (1-3*delta)/3;
        h3 = [delta delta 1-2*delta 2*unit];
        h2 = [delta 2*(unit+delta) 1-2*delta unit];
        h1 = [delta 4*unit+3*delta 1-2*delta unit];
        h0 = [delta delta 1-2*delta 1-2*delta];
plot(f)
 print(gcf,'-deps','spect1.eps')
window = 50;
specgm = WindowFT(f,window,1,'Gaussian');
 print(gcf,'-deps','spect2.eps')


% Written by Maureen Clerc and Jerome Kalifa, 1997
% clerc@cmapx.polytechnique.fr, kalifa@cmapx.polytechnique.fr
~