Mercurial > hg > octave-nkf

comparison scripts/general/gradient.m @ 7120:a2174fb073d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-07 21:26:43 by jwe]
author jwe
date Wed, 07 Nov 2007 21:26:43 +0000
parents a1dbe9d80eee
children eb7bdde776f2
comparison
equal deleted inserted replaced
7119:d22ad51b9cf8 7120:a2174fb073d4
85 d{i} = varargin{1}; 85 d{i} = varargin{1};
86 endfor 86 endfor
87 endif 87 endif
88 else 88 else
89 for i=1:nd 89 for i=1:nd
90 if (isscalar (varargin{1})) 90 if (isscalar (varargin{i}))
91 d{i} = varargin{i} * ones (sz(i), 1); 91 ## Why the hell did matlab decide to swap these two values?
92 if (i == 1)
93 d{2} = varargin{1} * ones (sz(2), 1);
94 elseif (i == 2)
95 d{1} = varargin{2} * ones (sz(1), 1);
96 else
97 d{i} = varargin{i} * ones (sz(i), 1);
98 endif
92 else 99 else
93 d{i} = varargin{i}; 100 ## Why the hell did matlab decide to swap these two values?
101 if (i == 1)
102 d{2} = varargin{1};
103 elseif (i == 2)
104 d{1} = varargin{2};
105 else
106 d{i} = varargin{i};
107 endif
94 endif 108 endif
95 endfor 109 endfor
96
97 ## Why the hell did matlab decide to swap these two values?
98 tmp = d{1};
99 d{1} = d{2};
100 d{2} = tmp;
101 endif 110 endif
102 111
103 for i = 1:max (2, min (nd, nargout)) 112 for i = 1:max (2, min (nd, nargout))
104 mr = sz(i); 113 mr = sz(i);
105 mc = prod ([sz(1:i-1), sz(i+1:nd)]); 114 mc = prod ([sz(1:i-1), sz(i+1:nd)]);