drdrawfig02.m

beamlet变化的工具箱

function dRDrawFig02(OpenNewWindow,HaveTitle,LoadData)
% DrawFig2: Meyer Wavelets
%
%   Wavelet analysis begins by choosing a specific family of wavelets
%   to work with.
%
%   The family is specified by a father and a mother wavelet, and
%   these generate a basis by translation and dilation.
% 

% if you don't want to process it, set LoadData=1

if nargin<3
    LoadData=0;
end

if nargin<2
    HaveTitle=1;
end

if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end

% DrawFig2: Meyer Wavelets
%
%   Wavelet analysis begins by choosing a specific family of wavelets
%   to work with.
%
%   The family is specified by a father and a mother wavelet, and
%   these generate a basis by translation and dilation.
% 
	
LoadData=0;
	wave = MakeWavelet(4,8,'Meyer',2,'Mother',1024);
	subplot(121);
	t=-512:511;
	plot(t,wave,'k'); 
    if HaveTitle
        title('Meyer Wavelet (Deg 2)');
    end
    
    axis square
    axis([-512 512 -5 5])
     axis square
    subplot(122);
    fwave=fft(wave);
    delta=-512:511;
    delta=sqrt(abs(delta)./512);
    delta(513)=sqrt(1/(8*512));
    fwave=fwave.*fftshift(delta);
    fracwave=ifft(fwave);
    plot(t,fracwave,'k'); 
    if HaveTitle
        title('Frac. Deriv. Meyer Wavelet (Deg 2)');
    end
    axis square
    axis([-512 512 -1 1])

%print -depsc RawFig2.eps
% Copyright (c) 2002 Ana Georgina Flesia

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%