0001 function b = rdivide(varargin)
0002
0003
0004
0005
0006
0007
0008
0009 invars = {};
0010 for j=1:nargin
0011 iname = inputname(j);
0012 if isempty(iname) && isnumeric(varargin{j})
0013 iname = num2str(varargin{j});
0014 elseif isempty(iname) && ischar(varargin{j})
0015 iname = varargin{j};
0016 end
0017 invars = [invars cellstr(iname)];
0018 end
0019
0020 ALGONAME = mfilename;
0021 VERSION = '$Id: rdivide.html,v 1.1 2007/06/08 14:15:03 hewitson Exp $';
0022
0023 op = './';
0024
0025 [a1,a2,do] = aooperate(varargin, op);
0026
0027
0028
0029
0030 h = history(ALGONAME, VERSION, [], [a1.hist a2.hist]);
0031 h = set(h, 'invars', invars);
0032
0033
0034 if isempty(char(invars{1}))
0035 n1 = a1.name;
0036 else
0037 n1 = char(invars{1});
0038 end
0039 if isempty(char(invars{2}))
0040 n2 = a2.name;
0041 else
0042 n2 = char(invars{2});
0043 end
0044
0045
0046
0047 b = ao(do, h);
0048 b = set(b, 'name', sprintf('%s%s%s', n1, op, n2));
0049
0050 end
0051
0052