Mercurial > hg > octave-nkf

comparison scripts/general/gradient.m @ 11589:b0084095098e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
missing semicolons in script files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 18:26:09 -0500
parents d5bd2766c640
children 1ce5cd703af0
comparison
equal deleted inserted replaced
11588:d5bd2766c640 11589:b0084095098e
65 ## Modified: David Bateman <dbateman@free.fr> Added NDArray support 65 ## Modified: David Bateman <dbateman@free.fr> Added NDArray support
66 66
67 function varargout = gradient (m, varargin) 67 function varargout = gradient (m, varargin)
68 68
69 if (nargin < 1) 69 if (nargin < 1)
70 print_usage () 70 print_usage ();
71 endif 71 endif
72 72
73 nargout_with_ans = max(1,nargout); 73 nargout_with_ans = max(1,nargout);
74 if (ismatrix (m)) 74 if (ismatrix (m))
75 [varargout{1:nargout_with_ans}] = matrix_gradient (m, varargin{:}); 75 [varargout{1:nargout_with_ans}] = matrix_gradient (m, varargin{:});
96 if (length(sz) > 1) 96 if (length(sz) > 1)
97 tmp = sz(1); sz(1) = sz(2); sz(2) = tmp; 97 tmp = sz(1); sz(1) = sz(2); sz(2) = tmp;
98 endif 98 endif
99 99
100 if (nargin > 2 && nargin != nd + 1) 100 if (nargin > 2 && nargin != nd + 1)
101 print_usage () 101 print_usage ();
102 endif 102 endif
103 103
104 ## cell d stores a spacing vector for each dimension 104 ## cell d stores a spacing vector for each dimension
105 d = cell (1, nd); 105 d = cell (1, nd);
106 if (nargin == 1) 106 if (nargin == 1)