Mercurial > hg > octave-lyh

comparison scripts/linear-algebra/normest.m @ 11587:c792872f8942

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
all script files: untabify and strip trailing whitespace
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:35:29 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11586:12df7854fa7c 11587:c792872f8942
37 print_usage (); 37 print_usage ();
38 endif 38 endif
39 39
40 if (! (isnumeric (A) && ndims (A) == 2)) 40 if (! (isnumeric (A) && ndims (A) == 2))
41 error ("normest: A must be a numeric 2-D matrix"); 41 error ("normest: A must be a numeric 2-D matrix");
42 endif 42 endif
43 43
44 if (! (isscalar (tol) && isreal (tol))) 44 if (! (isscalar (tol) && isreal (tol)))
45 error ("normest: TOL must be a real scalar"); 45 error ("normest: TOL must be a real scalar");
46 endif 46 endif
47 47
48 if (! isfloat (A)) 48 if (! isfloat (A))
49 A = double (A); 49 A = double (A);
50 endif 50 endif
51 51