Mercurial > octave-nkf

comparison scripts/general/gradient.m @ 19734:00e31f316a3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Matlab incompatibility of "ismatrix" (bug #42422). * data.cc (isvector): new tests * data.cc (isrow): documentation improved, new tests * data.cc (iscolumn): documentation improved, new tests * data.cc (ismatrix): is matrix now only checks the dimension due to Matlab compatibility, documentation improved, new tests * accumarray.m: use more appropriate function, than ismatrix * gradient.m: use more appropriate function, than ismatrix * num2str.m: use more appropriate functions, than ismatrix * ntsc2rgb.m: use more appropriate function, than ismatrix * condest.m: use more appropriate function, than ismatrix * expm.m: use more appropriate function, than ismatrix * onenormest.m: use more appropriate function, than ismatrix * isocolors.m: use more appropriate function, than ismatrix * isonormals.m: use more appropriate function, than ismatrix * isosurface.m: use more appropriate function, than ismatrix * __errcomm__.m: use more appropriate function, than ismatrix * __interp_cube__.m: use more appropriate function, than ismatrix * __marching_cube__.m: use more appropriate function, than ismatrix * __stem__.m: use more appropriate function, than ismatrix * stairs.m: use more appropriate function, than ismatrix * validsetargs.m: use more appropriate functions, than ismatrix * unique.m: use more appropriate functions, than ismatrix * bicg.m: additional tests for numerical value * bicgstab.m: additional tests for numerical value * cgs.m: additional tests for numerical value * gmres.m: additional tests for numerical value * qmr.m: additional tests for numerical value
author Kai T. Ohlhus <k.ohlhus@gmail.com>
date Thu, 12 Feb 2015 18:34:56 +0100
parents 4197fc428c7d
children 9fc020886ae9
comparison
equal deleted inserted replaced
19733:2e9f17872f36 19734:00e31f316a3a
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 (isnumeric (m))
75 [varargout{1:nargout_with_ans}] = matrix_gradient (m, varargin{:}); 75 [varargout{1:nargout_with_ans}] = matrix_gradient (m, varargin{:});
76 elseif (isa (m, "function_handle")) 76 elseif (isa (m, "function_handle"))
77 [varargout{1:nargout_with_ans}] = handle_gradient (m, varargin{:}); 77 [varargout{1:nargout_with_ans}] = handle_gradient (m, varargin{:});
78 elseif (ischar (m)) 78 elseif (ischar (m))
79 [varargout{1:nargout_with_ans}] = handle_gradient (str2func (m), varargin{:}); 79 [varargout{1:nargout_with_ans}] = handle_gradient (str2func (m), varargin{:});