wt04fig18.m

斯坦福大学的小波的工具箱 比matlab自带的工具箱更完善

% CAPTION
fprintf('\n');
disp('Figure 4.18')
disp('Wigner-Ville distribution of the two Gabor atoms shown at the top.')
disp('Large amplitude coefficients are shown in black.')
disp('The oscillating interferences are centered at the middle')
disp('time-frequency location.')

close all;
% axes handles	
	delta = 1/15;
	unit = (1-3*delta)/3;
	h2 = [delta delta 1-2*delta 2*unit];
	h1 = [delta 2*(unit+delta) 1-2*delta unit];

	N = 512;	
	f = MakeSignal('Gabor',N);

figure(1);clf
	axes('position',h1);
	plot(real(f))
	axis([200 460 min(real(f)) max(real(f))])
	axes('position',h2)
	WignerDist(f);
	axis([200 460 0 128]);

% Written by Maureen Clerc and Jerome Kalifa, 1997
% [e-mail], [e-mail]
    
    
%   
% Part of WaveLab Version 802
% Built Sunday, October 3, 1999 8:52:27 AM
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%