Mercurial > hg > octave-lyh

diff src/data.cc @ 7102:a627f27c1e8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-06 17:02:11 by jwe]
author jwe
date Tue, 06 Nov 2007 17:02:12 +0000
parents e5005117103d
children 1ed1a94735a6
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -2623,6 +2623,12 @@
 %!assert(norm(m,2), 34, -eps);
 %!assert(norm(m,Inf), 34);
 %!assert(norm(m,"inf"), 34);
+%!shared m2
+%! m2 = [1,2;3,4];
+%! flo = 1e-300;
+%! fhi = 1e+300;
+%!assert (norm (flo*m2, "fro"), sqrt (30)*flo, -eps)
+%!assert (norm (fhi*m2, "fro"), sqrt (30)*fhi, -eps)
 */
 
 // Compute various norms of the vector X.