assign_input.m

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

function param=assign_input(param,arguments,fcn)
% Function matches keywords in cell array "arguments" to fields of "param", and 
% replaces them with new values. Used to assign input arguments in certain functions
% Written by: E. R.:
% Last updated: February 28, 2004: Provide facility to chanhe default for parameters
%                                  requires third input argument 
%
%          param=assign_input(param,arguments,fcn)
% INPUT
% param    structure
% arguments cell array, each element of "arguments" is a 2-element cell array
%          whose first element is a field name of "param"
% fcn      string with the name of the function calling "assign_input"
% OUTPUT
% param    input structure updated with values in "arguments"
%                     param=assign_input(param,arguments}
% Input can also be provided via global variable "PARAMETERS4FUNCTION"
% GLOBAL VARIABLE
%          PARAMETERS4FUNCTION structure with field "fcn" which, in turn, has fields
%                   'default' and/or 'actual'
%          Example: PARAMETERS4FUNCTION.s_iplot.default
%                   PARAMETERS4FUNCTION.s_iplot.actual
%          PARAMETERS4FUNCTION.s_iplot.actual is a structure with the actually used parameters
%          i.e. it has has the same fields as "param" on output

global PARAMETERS4FUNCTION S4M

ier=0;

%	Check if arguments are supplied via global variable "PARAMETERS4FUNCTION.fcn.default"
			if nargin > 2
if isfield(PARAMETERS4FUNCTION,fcn)
   temp=getfield(PARAMETERS4FUNCTION,fcn);
   if isfield(temp,'default')  &  ~isempty(temp.default)
      defaults=temp.default;
      fields=fieldnames(defaults);
      params=fieldnames(param);
      bool=ismember(fields,params);
      if ~all(bool)
         disp(['Parameters specified via "PARAMETERS4FUNCTION.',fcn,'.default":'])
         disp(cell2str(fields,', '))

         fields=fields(~bool);
         disp('Parameters that are not keywords of function:')
         disp(cell2str(fields,', '))

         disp('Possible keywords: ')
         disp(cell2str(params,', '))
	 temp.default=[];
%	Set "PARAMETERS4FUNCTION.functionname.default" to the empty matrix to prevent
                                % it from being used again in another function
	 PARAMETERS4FUNCTION=setfield(PARAMETERS4FUNCTION,fcn,temp); 
	
         keyboard
         error('Not all fields of "PARAMETERS4FUNCTION.',fcn,'.default" are keywords')
      end
  
      for ii=1:length(fields)
         param=setfield(param,fields{ii},getfield(temp.default,fields{ii}));
      end

%     Set "PARAMETERS4FUNCTION.functionname.default" to the empty matrix to prevent
                                % it from being used again in another function

      temp.default=[];
      PARAMETERS4FUNCTION=setfield(PARAMETERS4FUNCTION,fcn,temp); 
   end
end
			end

%	Use input arguments of the function calling "assign_input"
for ii=1:length(arguments)
   arg=arguments{ii};
   field=lower(arg{1});
   if ~isfield(param,field)
      if ier == 0
         temp=dbstack;
	 funct=temp(2).name;
         if S4M.matlab_version < 7
            idx1=findstr(funct,'\');
            idx2=findstr(funct,'.'); 
            funct=upper(funct(idx1(end)+1:idx2(end)-1));
	 end
      end
      disp([' "',field,'" is not a valid input argument keyword for ',funct])
      ier=1;   
   else
      if length(arg) == 2 & ~iscell(arg{2})      % Modification 
         param=setfield(param,field,arg{2});
      else
         param=setfield(param,field,arg(2:end));
      end
   end
end

if ier
   disp('Recognized keywords are:')
   disp(fieldnames(param)')
   error(['Input error in ',funct]) 
end

if nargin > 2
   temp.actual=param;
   PARAMETERS4FUNCTION=setfield(PARAMETERS4FUNCTION,fcn,temp); 
end