Mercurial > octave-nkf

comparison scripts/linear-algebra/onenormest.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 03b9d17a2d95
comparison
equal deleted inserted replaced
19733:2e9f17872f36 19734:00e31f316a3a
101 endif 101 endif
102 102
103 default_t = 5; 103 default_t = 5;
104 itmax = 10; 104 itmax = 10;
105 105
106 if (ismatrix (varargin{1})) 106 if (isnumeric (varargin{1}))
107 [n, nc] = size (varargin{1}); 107 [n, nc] = size (varargin{1});
108 if (n != nc) 108 if (n != nc)
109 error ("onenormest: matrix must be square"); 109 error ("onenormest: matrix must be square");
110 endif 110 endif
111 apply = @(x) varargin{1} * x; 111 apply = @(x) varargin{1} * x;