Mercurial > octave-nkf
changeset 7103:1ed1a94735a6
[project @ 2007-11-06 17:13:30 by jwe]
| author | jwe |
|---|---|
| date | Tue, 06 Nov 2007 17:13:30 +0000 |
| parents | a627f27c1e8e |
| children | b26d0cd10a42 |
| files | src/data.cc |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.cc Tue Nov 06 17:02:12 2007 +0000 +++ b/src/data.cc Tue Nov 06 17:13:30 2007 +0000 @@ -2613,7 +2613,7 @@ %!assert(norm(x,Inf), 7); %!assert(norm(x,-Inf), 1); %!assert(norm(x,"inf"), 7); -%!assert(norm(x,"fro"), 10); +%!assert(norm(x,"fro"), 10, -eps); %!assert(norm(x), 10); %!assert(norm([1e200, 1]), 1e200); %!assert(norm([3+4i, 3-4i, sqrt(31)]), 9, -4*eps); @@ -2623,12 +2623,12 @@ %!assert(norm(m,2), 34, -eps); %!assert(norm(m,Inf), 34); %!assert(norm(m,"inf"), 34); -%!shared m2 +%!shared m2, flo, fhi %! 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) +%!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.