


RDIVIDE overloads ./ operator for analysis objects.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: RDIVIDE overloads ./ operator for analysis objects.
CALL: a = a1./scalar
VERSION: $Id: rdivide.m,v 1.13 2008/02/13 18:35:22 hewitson Exp $
The following call returns a parameter list object that contains the
default parameter values:
>> pl = rdivide(ao, 'Params')
The following call returns a string that contains the routine CVS version:
>> version = rdivide(ao,'Version')
The following call returns a string that contains the routine category:
>> category = rdivide(ao,'Category')
HISTORY: 05-02-07 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


0001 function b = rdivide(varargin) 0002 % RDIVIDE overloads ./ operator for analysis objects. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: RDIVIDE overloads ./ operator for analysis objects. 0007 % 0008 % CALL: a = a1./scalar 0009 % 0010 % VERSION: $Id: rdivide.m,v 1.13 2008/02/13 18:35:22 hewitson Exp $ 0011 % 0012 % The following call returns a parameter list object that contains the 0013 % default parameter values: 0014 % 0015 % >> pl = rdivide(ao, 'Params') 0016 % 0017 % The following call returns a string that contains the routine CVS version: 0018 % 0019 % >> version = rdivide(ao,'Version') 0020 % 0021 % The following call returns a string that contains the routine category: 0022 % 0023 % >> category = rdivide(ao,'Category') 0024 % 0025 % HISTORY: 05-02-07 M Hewitson 0026 % Creation 0027 % 0028 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0029 0030 ALGONAME = mfilename; 0031 VERSION = '$Id: rdivide.m,v 1.13 2008/02/13 18:35:22 hewitson Exp $'; 0032 CATEGORY = 'Arithmetic Operator'; 0033 0034 %% Check if this is a call for parameters 0035 if nargin == 2 0036 if isa(varargin{1}, 'ao') && ischar(varargin{2}) 0037 in = char(varargin{2}); 0038 if strcmp(in, 'Params') 0039 b = getDefaultPL(); 0040 return 0041 elseif strcmp(in, 'Version') 0042 b = VERSION; 0043 return 0044 elseif strcmp(in, 'Category') 0045 b = CATEGORY; 0046 return 0047 end 0048 end 0049 end 0050 0051 %% capture input variable names 0052 invars = {}; 0053 for j=1:nargin 0054 iname = inputname(j); 0055 if isempty(iname) && isnumeric(varargin{j}) 0056 iname = num2str(varargin{j}); 0057 elseif isempty(iname) && ischar(varargin{j}) 0058 iname = varargin{j}; 0059 end 0060 invars = [invars cellstr(iname)]; 0061 end 0062 0063 op = './'; 0064 0065 [a1,a2,do] = aooperate(varargin, op); 0066 0067 %--------- create output AO 0068 0069 % make a new history object 0070 h = history(ALGONAME, VERSION, plist(), [a1.hist a2.hist]); 0071 h = set(h, 'invars', invars); 0072 0073 % get names for output 0074 if isempty(char(invars{1})) 0075 n1 = a1.name; 0076 else 0077 n1 = char(invars{1}); 0078 end 0079 if isempty(char(invars{2})) 0080 n2 = a2.name; 0081 else 0082 n2 = char(invars{2}); 0083 end 0084 0085 % make output analysis object 0086 % op = op(2:end); 0087 b = ao(do, h); 0088 b = setnh(b, 'name', sprintf('%s %s %s', n1, op, n2)); 0089 0090 %% Get default params 0091 function pl_default = getDefaultPL() 0092 0093 pl_default = plist(); 0094 0095 % END