minimum_phase_wavelet.m

基于Matlab的地震数据处理显示和测井数据显示于处理的小程序

function mph_wavelet=minimum_phase_wavelet(wavelet,nsamp)
% Compute the minimum-phase equivalent of the input wavelet (a vector with 
% the wavelet samples)
%
% Written by: E. R.: March 30, 2006
% Last updated:
%
%           mph_wavelet=minimum_phase_wavelet(wavelet)
% INPUT
% wavelet   column vector of samples of an arbitrary wavelet
% nsamp     number of samples of the minimum-phase wavelet
% OUTPUT
% mph_wavelet   column vector of the samples of the minimum-phase equivalent
%           of the input wavelet

nfft=pow2(nextpow2(nsamp)+3);
fwav=abs(fft(wavelet,nfft));

%       Smooth the spectrum
amp=anysmooth([fwav(end);fwav;fwav(1)],[1 2 1],0);

mph_wavelet=minimum_phase(amp(2:end-1),nsamp);

%       Scale output wavelet to input wavelet
mph_wavelet=mph_wavelet*norm(wavelet)/norm(mph_wavelet);