Mercurial > hg > octave-lyh

comparison scripts/sparse/normest.m @ 8507:cadc73247d65

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 Tue, 13 Jan 2009 14:08:36 -0500
parents df9519e9990c
children eb63fbe60fab
comparison
equal deleted inserted replaced
8506:bc982528de11 8507:cadc73247d65
39 else 39 else
40 if (tol < eps) 40 if (tol < eps)
41 tol = eps 41 tol = eps
42 endif 42 endif
43 endif 43 endif
44 if (ndims(A) != 2) 44 if (ndims (A) != 2)
45 error ("normest: A must be a matrix"); 45 error ("normest: A must be a matrix");
46 endif 46 endif
47 maxA = max (max (abs (A))); 47 maxA = max (max (abs (A)));
48 c = 0; 48 c = 0;
49 if (maxA == 0) 49 if (maxA == 0)