Mercurial > octave-nkf

comparison scripts/linear-algebra/onenormest.m @ 8664:e07e93c04080

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Wed, 04 Feb 2009 10:56:23 -0500
parents cadc73247d65
children eb63fbe60fab
comparison
equal deleted inserted replaced
8663:4238f2600a17 8664:e07e93c04080
100 itmax = 10; 100 itmax = 10;
101 101
102 if (ismatrix (varargin{1})) 102 if (ismatrix (varargin{1}))
103 n = size (varargin{1}, 1); 103 n = size (varargin{1}, 1);
104 if n != size (varargin{1}, 2), 104 if n != size (varargin{1}, 2),
105 error ("onenormest: matrix must be square."); 105 error ("onenormest: matrix must be square");
106 endif 106 endif
107 apply = @(x) varargin{1} * x; 107 apply = @(x) varargin{1} * x;
108 apply_t = @(x) varargin{1}' * x; 108 apply_t = @(x) varargin{1}' * x;
109 if (size (varargin) > 1) 109 if (size (varargin) > 1)
110 t = varargin{2}; 110 t = varargin{2};