RDIVIDE implements rdivide operator for analysis objects. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: RDIVIDE implements rdivide operator for analysis objects. CALL: a = a1./scalar a = a1./a2 M-FILE INFO: Get information about this methods by calling >> ao.getInfo('rdivide') Get information about a specified set-plist by calling: >> ao.getInfo('rdivide', 'None') VERSION: $Id: rdivide.m,v 1.24 2008/09/05 11:05:29 ingo Exp $ HISTORY: 01-02-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 % RDIVIDE implements rdivide operator for analysis objects. 0002 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0003 % 0004 % DESCRIPTION: RDIVIDE implements rdivide operator for analysis objects. 0005 % 0006 % CALL: a = a1./scalar 0007 % a = a1./a2 0008 % 0009 % M-FILE INFO: Get information about this methods by calling 0010 % >> ao.getInfo('rdivide') 0011 % 0012 % Get information about a specified set-plist by calling: 0013 % >> ao.getInfo('rdivide', 'None') 0014 % 0015 % VERSION: $Id: rdivide.m,v 1.24 2008/09/05 11:05:29 ingo Exp $ 0016 % 0017 % HISTORY: 01-02-07 M Hewitson 0018 % Creation 0019 % 0020 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0021 0022 function varargout = rdivide(varargin) 0023 0024 import utils.const.* 0025 0026 % Check if this is a call for parameters 0027 if utils.helper.isinfocall(varargin{:}) 0028 varargout{1} = getInfo(varargin{3}); 0029 return 0030 end 0031 0032 utils.helper.msg(msg.MNAME, 'running %s/%s', mfilename('class'), mfilename); 0033 0034 % Collect input ao's, plist's and ao variable names 0035 in_names = cell(size(varargin)); 0036 for ii = 1:nargin,in_names{ii} = inputname(ii);end 0037 0038 % Check for numbers in the other arguments and convert to AOs 0039 args = utils.helper.collect_values(varargin); 0040 [as, ao_invars] = utils.helper.collect_objects(args, 'ao', in_names); 0041 pl = utils.helper.collect_objects(args, 'plist'); 0042 0043 % Combine with default plist 0044 pl = combine(pl, getDefaultPlist); 0045 0046 % Decide on a deep copy or a modify 0047 bs = copy(as, nargout); 0048 0049 % Set output 0050 varargout{1} = applyoperator(bs, ao_invars, 'rdivide', './', pl, getInfo); 0051 end 0052 0053 %-------------------------------------------------------------------------- 0054 % Get Info Object 0055 %-------------------------------------------------------------------------- 0056 function ii = getInfo(varargin) 0057 0058 if nargin == 1 && strcmpi(varargin{1}, 'None') 0059 sets = {}; 0060 pls = []; 0061 else 0062 sets = {'Default'}; 0063 pls = getDefaultPlist; 0064 end 0065 % Build info object 0066 ii = minfo(mfilename, 'ao', '', utils.const.categories.aop, '$Id: rdivide.m,v 1.24 2008/09/05 11:05:29 ingo Exp $', sets, pls); 0067 end 0068 0069 %-------------------------------------------------------------------------- 0070 % Get Default Plist 0071 %-------------------------------------------------------------------------- 0072 function pl_default = getDefaultPlist() 0073 pl_default = plist(); 0074 end 0075 % END 0076