Mercurial > octave-nkf

comparison scripts/general/del2.m @ 11721:9b97f115d4b9 release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trivial fix to del2
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 28 Mar 2008 14:50:52 -0400
parents a1dbe9d80eee
children fa78cb8d8a5c 72830070a17b
comparison
equal deleted inserted replaced
11720:ef483acb60c7 11721:9b97f115d4b9
70 dx = cell (1, nd); 70 dx = cell (1, nd);
71 if (nargin == 2 || nargin == 1) 71 if (nargin == 2 || nargin == 1)
72 if (nargin == 1) 72 if (nargin == 1)
73 h = 1; 73 h = 1;
74 else 74 else
75 h = varargin{1} 75 h = varargin{1};
76 endif 76 endif
77 for i = 1 : nd 77 for i = 1 : nd
78 if (isscalar (h)) 78 if (isscalar (h))
79 dx{i} = h * ones (sz (i), 1); 79 dx{i} = h * ones (sz (i), 1);
80 else 80 else