s_tools.m

地震、测井方面matlab代码,解释的比较详细

function s_tools(keyword)
% Without argument, function lists all functions that process seismic data
% The argument allows restrictions to those functions which have the keyword 
% as part of the description
% Written by: E. R.: May, 6, 2000
% Last updated: January 2, 2001: Tools with new header structure
%
%           s_tools(keyword)   or   s_tools keyword
% INPUT
% keyword   Search string to restrict the output of this command to lines that 
%           contain this string (needs to be in quotes if used as argument)
%
% EXAMPLES     
%           s_tools             % shows all seismic-related functions
%           s_tools plot        % shows seismic-related functions referring to plots
%           s_tools('plot')     % same as above

global S4M

list=list_of_seismic_functions;

if S4M.pd
   index=find(cell2mat(list(:,1))> 0);
   list=list(index,2:3);
else
   list=list(:,2:3);
end

nl=size(list,1);

if nargin == 0
  disp([char(list{:,1}),blanks(nl)',char(list{:,2})]);
else
  jj=0;
  index=zeros(nl,1);
  for ii=1:nl
    if ~isempty(findstr(lower(list{ii,1}),lower(keyword))) | ~isempty(findstr(lower(list{ii,2}),lower(keyword)))
      jj=jj+1;
      index(jj)=ii;
    end
  end
  if jj == 0
    disp('  No matching seismic tool found')
  else
    disp([char(list{index(1:jj),1}),blanks(jj)',blanks(jj)',char(list{index(1:jj),2})]);
  end
end