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