Mercurial > octave-nkf

diff scripts/general/issymmetric.m @ 7281:add731f4024d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-10 21:31:14 by jwe]
author jwe
date Mon, 10 Dec 2007 21:31:15 +0000
parents 7da4a5262e2e
children df9519e9990c
line wrap: on
line diff
--- a/scripts/general/issymmetric.m	Mon Dec 10 21:12:51 2007 +0000
+++ b/scripts/general/issymmetric.m	Mon Dec 10 21:31:15 2007 +0000
@@ -41,7 +41,7 @@
         tol = eps;
       endif
       norm_x = norm (x, inf);
-      if (norm_x != 0 && norm (x - x.', inf) / norm_x > tol)
+      if (norm_x != 0 && norm (x - x', inf) / norm_x > tol)
         retval = 0;
       endif
     endif
@@ -57,7 +57,7 @@
 %!assert(issymmetric ([1, 2; 2, 1]) == 2);
 %!assert(!(issymmetric ("test")));
 %!assert(issymmetric ([1, 2.1; 2, 1.1], 0.2) == 2);
-%!assert(!issymmetric ([1, 2i; -2i, 1]));
+%!assert(issymmetric ([1, 2i; -2i, 1]));
 %!assert(!(issymmetric ("t")));
 %!assert(!(issymmetric (["te"; "et"])));
 %!error issymmetric ([1, 2; 2, 1], 0, 0);