rayleigh.m

面波反演的一个例子。。。。 里面有文件说明 相信大家会好好利用的

function [vr,varargout] = rayleigh(thk,dns,cvp,cvs,freq,varargin)
%function [vr,z,r,dvrvs,vre,dvrevs] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz,offsets,s_depth,r_depth)
%function [vr,z,r,dvrvs,vre,dvrevs,ur,uy] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz,offsets,s_depth,r_depth,Phi)
% Usage:
% 		vr = rayleigh(thk,dns,cvp,cvs,freq)
% 		[vr,z,r] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz)
% 		[vr,z,r,dvrvs] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz)
% 		[vr,z,r,dvrvs,vre,dvrevs] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz,offsets,s_depth,r_depth)
% 		[vr,z,r,dvrvs,vre,dvrevs,ur,uy] = rayleigh(thk,dns,cvp,cvs,freq,Fx,Fy,Fz,offsets,s_depth,r_depth,Phi)
%
% This function solves the eigenvalue problem (i.e., it calculates phase velocities
% and displacement-stress vectors) for Rayleigh waves in an elastic, vertically
% heterogeneous halfspace.
%
% The algorithms are based on:
%
% Hisada, Y., (1994). "An Efficient Method for Computing Green's Functions for
% a Layered Half-Space with Sources and Receivers at Close Depths," Bulletin of
% the Seismological Society of America, Vol. 84, No. 5, pp. 1456-1472.
%
% Lai, C.G., (1998). "Simultaneous Inversion of Rayleigh Phase Velocity and
% Attenuation for Near-Surface Site Characterization," Ph.D. Dissertation,
% Georgia Institute of Technology.
%
% The function calculates the partial derivatives of the modal Rayleigh phase
% velocities with respect to the shear and compression wave velocities of each layer
% using the variational approach.
%
% The function calculates the effective, vertical Rayleigh phase velocities 
% resulting from the superposition of the modal phase velocities. Partial derivatives
% of the effective velocities are also computed using the variational approach.
%
% The function calculates the Green's function of the Rayleigh wave displacement
% field using the concept of mode superposition.
%
% Copyright 1999 by Glenn J. Rix and Carlo G. Lai
%
% This program is free software; you can redistribute it and/or
% modify it under the terms of the GNU General Public License
% as published by the Free Software Foundation; either version 2
% of the License, or (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program; if not, write to the Free Software
% Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

% List of required input parameters:
%	thk:			vector of N layer thicknesses
%	dns:			vector of N+1 layer mass densities
%	cvp:			vector of N+1 complex-valued layer compression wave velocities
%	cvs:			vector of N+1 complex-valued layer shear wave velocities
%	freq:			vector of M frequencies in Hz

% List of optional input parameters:
%	offsets:		vector of P offsets from the source position
%	Fx,Fy,Fz:	scalar source magnitudes in x, y, and z directions
%	Phi:			scalar orientation of source (in radians)
%	s_depth:		scalar depth of source
%	r_depth:		scalar depth of receiver
%
% List of required output parameters:
%	vr:		matrix of modal phase velocities (M by MAXROOT)
%
% List of optional output parameters:
%	z:			matrix of depths (NUMPOINTS by M)
%	r:			matrix of displacement-stress vectors (M by MAXROOT by NUMPOINTS by 4)
%	dr:		matrix of displacement-stress derivatives (M by MAXROOT by NUMPOINTS by 2)
%	U:			matrix of group velocities (M by MAXROOTS)
%	zdvrvs:	matrix of partial derivatives at individual depths (M by MAXROOT by NUMPOINTS)
%	zdvrvp:	matrix of partial derivatives at individual depths (M by MAXROOT by NUMPOINTS)
%	dvrvs:	matrix of partial derivatives for each layer (M by MAXROOT by N+1)
%	dvrvp:	matrix of partial derivatives for each layer (M by MAXROOT by N+1)
%	vre:		matrix of effective vertical phase velocities (M by P)
%	dvrevs:	matrix of partial derivatives of vre for each layer (M by P by N+1)
%	dvrevp:	matrix of partial derivatives of vre for each layer (M by P by N+1)
%	ur:		matrix of horizontal Rayleigh wave displacements (M by P)
%	uy:		matrix of vertical Rayleigh wave displacements (M by P)

% Print program information
% disp('Surface Wave Forward Modelling for Elastic Media Version 1.1')
% disp('Copyright (C) 1999 Glenn J. Rix and Carlo G. Lai')
% disp('This program comes with absolutely no warranty.')
% disp('This is free software, and you are welcome to redistribute it')
% disp('under certain conditions. See gpl_license.txt for details.')

% Establish global parameters

% Tolerance for declaring a zero
global TOL; TOL = 0.01;
% Assumed maximum number of modes at any frequency
%global MAXROOT; MAXROOT = 20;
global MAXROOT; MAXROOT = 1; %Consider only one mode! Morteza Zarrabi 08/15/05
% Maximum number of increments to search between vrmin and vrmax
global NUMINC; NUMINC = 200;
% Number of points (depths) for calculating displacement-stress vectors (eigenfunctions)
global NUMPOINTS; NUMPOINTS = 500;
% Wavelength multiplier for calculating displacement-stress vectors (eigenfunctions)
global LAMBDA; LAMBDA = 3;

% Convert all input parameters to column vectors
thk = reshape(thk,length(thk),1);
dns = reshape(dns,length(dns),1);
cvp = reshape(cvp,length(cvp),1);
cvs = reshape(cvs,length(cvs),1);
freq = reshape(freq,length(freq),1);

% Determine the minimum and maximum body wave velocities
cvpmin = min(cvp); cvpmax = max(cvp);
cvsmin = min(cvs); cvsmax = max(cvs);

% Determine the minimum and maximum Rayleigh phase velocities in a
% homogeneous half space corresponding to the minimum and maximum
% compression and shear velocities
vrmin = homogeneous(cvpmin,cvsmin);
vrmax = homogeneous(cvpmax,cvsmax);

% Note: the following empirical rules need further study
vrmin = 0.98*vrmin;
vrmax = 1.00*cvsmax;

% Determine the modal phase velocities
vr = modal(freq,thk,dns,cvp,cvs,vrmin,vrmax);

% Determine the displacement-stress vectors and their derivatives with respect to depth
if (nargout >= 3) & (length(varargin) >= 3)
   Fx = varargin{1}; Fy = varargin{2}; Fz = varargin{3};
   [z r dr] = disp_stress(freq,vr,thk,dns,cvs,cvp,Fz);
   varargout{1} = z; varargout{2} = r;
end
   
% Determine the energy integrals, group velocities, and the partial derivatives of the
% modal phase velocites with respect to the shear and compression wave velocities both
% at individual depths and for each layer
if (nargout >= 4) & (length(varargin) >= 3)
   [I1,I2,I3,U,zdvrvs,zdvrvp,dvrvs,dvrvp] = partial(freq,vr,z,r,dr,thk,dns,cvs,cvp);
   varargout{3} = dvrvs;
end

% Determine the effective vertical phase velocities and the partial derivatives of the
% effective phase velocities with respect to the shear and compression wave velocities
% of each layer at specified offsets
if (nargout >= 6) & (length(varargin) >= 6)
   offsets = varargin{4}(:); s_depth = varargin{5}; r_depth = varargin{6};
   [vre,dvrevs,dvrevp] = effective(freq,vr,U,I1,z,r,dvrvs,dvrvp,offsets,s_depth,r_depth);
   varargout{4} = vre; varargout{5} = dvrevs;
end

% Calculate the horizontal and vertical Rayleigh wave displacements at each specified
% offset using modal superposition
if (nargout == 8) & (length(varargin) == 7)
   Phi = varargin{7};
   [ur,uy] = green(freq,vr,U,I1,z,r,offsets,Fx,Fy,Fz,Phi,s_depth,r_depth);
   varargout{6} = ur; varargout{7} = uy;
end