Mercurial > hg > octave-lyh

diff liboctave/Array2.cc @ 2815:33486d9e2d00
[project @ 1997-03-14 08:24:46 by jwe]
author: jwe
date: Fri, 14 Mar 1997 08:25:58 +0000
parents: 3d905d3820a4
children: 8b262e771614
--- a/liboctave/Array2.cc
+++ b/liboctave/Array2.cc
@@ -171,6 +171,23 @@
   return *this;
 }
 
+template <class T>
+bool
+Array2<T>::is_symmetric (void) const
+{
+  if (is_square () && d1 > 0)
+    {
+      for (int i = 0; i < d1; i++)
+	for (int j = i+1; j < d2; j++)
+	  if (elem (i, j) != elem (j, i))
+	    return false;
+
+      return true;
+    }
+
+  return false;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***