splitstepf_mig.m

用matlab语言写的地震偏移成像软件集,很有用的东东呵

function [seismig,zmig] = splitstepf_mig(seis, t, x, velmod, zv, dz, zmax, fmax)
% SPLITSTEPF_MIG: Split-step Fourier depth migration
%
% [seismig,zmig] = splitstepf_mig(seis, t, x, velmod, zv, dz, zmax, fmax)
%
% SPLITSTEPF_MIG performs a migration by Fourier phase shift 
% through a v(z) medium.
% 
% seis ... matrix of seismic data
% t ... time coordinate vector for seis (one entry per row, must be
%		regular)
% x ... x coordinate vector for seis. (One entry per column, must be
%		regular)
% velmod ... velocity model matrix. Must have the same number of columns as
% 		seis. Its z coordinate must span 0 to zmax.
% zv ... z coordinate for the velocity model
% dz ... depth step size
% zmax ... maximum depth to step to
% fmax ... maximum frequency
%
%
% G.F. Margrave, CREWES, 2000
%
%
% NOTE: It is illegal for you to use this software for a purpose other
% than non-profit education or research UNLESS you are employed by a CREWES
% Project sponsor. By using this software, you are agreeing to the terms
% detailed in this software's Matlab source file.
 
% BEGIN TERMS OF USE LICENSE
%
% This SOFTWARE is maintained by the CREWES Project at the Department
% of Geology and Geophysics of the University of Calgary, Calgary,
% Alberta, Canada.  The copyright and ownership is jointly held by 
% its author (identified above) and the CREWES Project.  The CREWES 
% project may be contacted via email at:  [e-mail]
% 
% The term 'SOFTWARE' refers to the Matlab source code, translations to
% any other computer language, or object code
%
% Terms of use of this SOFTWARE
%
% 1) Use of this SOFTWARE by any for-profit commercial organization is
%    expressly forbidden unless said organization is a CREWES Project
%    Sponsor.
%
% 2) A CREWES Project sponsor may use this SOFTWARE under the terms of the 
%    CREWES Project Sponsorship agreement.
%
% 3) A student or employee of a non-profit educational institution may 
%    use this SOFTWARE subject to the following terms and conditions:
%    - this SOFTWARE is for teaching or research purposes only.
%    - this SOFTWARE may be distributed to other students or researchers 
%      provided that these license terms are included.
%    - reselling the SOFTWARE, or including it or any portion of it, in any
%      software that will be resold is expressly forbidden.
%    - transfering the SOFTWARE in any form to a commercial firm or any 
%      other for-profit organization is expressly forbidden.
%
% END TERMS OF USE LICENSE

tic

%global VELMOD XV ZV

[nsamp,ntr]=size(seis);

z=0:dz:zmax;
nz=length(z);

%forward fk
disp('fk transform')
[phi,f,kx]=fktran(seis,t,x,2^nextpow2(t),2^nextpow2(x),0,0);
%kx spectrum will be wrapped
kx2=kx.^2;
clear seis

df=f(2)-f(1);
nfmax=round(fmax/df)+1;
f1=f(2:nfmax);

f2=f1.^2;
phi=phi(2:nfmax,:);% don't bother with dc or f>fmax
nfmax=nfmax-1; %make nfmax point to fmax after tossing dc

ntrpad=size(phi,2);

disp([int2str(nz) ' depth steps'])

seismig=zeros(nz,length(x));

for iz=1:nz
	%get v
	izv=near(zv,z(iz));
	v=.5*velmod(izv,:);%exploding reflector
	vm=mean(v);
	
	%focussing phase shift
	for jk=1:length(kx)
		fev=kx(jk)*vm; %first non-evanescent f
		nfev=max([round(fev/df),1]);
		if(nfev<=nfmax)
			%compute focussing phase shift
			psf= (2*pi*dz*f1(nfev:nfmax)/vm).*(sqrt(1 - ...
					vm*vm*kx2(jk)./f2(nfev:nfmax) )-1);
	
			%apply phase shift
			phi((nfev:nfmax),jk) = phi((nfev:nfmax),jk).*exp(i*psf);
			if(nfev>1)
				phi(1:nfev-1,jk)=0;
			end
		else
			phi(:,jk)=0;
		end
	end

	% inverse fft over kx and apply static phase shift
	% also re-zero the zero pad, also image
	if(length(v)~=length(x));
		v=pwlinint(v,xv,x);
	end

	for jf=1:nfmax
		tmp= fft(phi(jf,1:length(x)));
		tmp=tmp.*exp(i*2*pi*f(jf)*dz./v);
		seismig(iz,:)=seismig(iz,:)+2*real(tmp);
		phi(jf,:)=[ifft(tmp) zeros(1,length(kx)-length(x))];
	end
	
	disp([' finished step ' int2str(iz) ' of ' int2str(nz)])
end
zmig=z;
time=toc;
disp(['finished in ' num2str(time) ' seconds'])