# HG changeset patch
# User jwe
# Date 857797751 0
# Node ID d477bceb9e2ad95a7caf115c07e274a77956b76b
# Parent  f81117f4754d490fde557e91b838e1661a5f7679
[project @ 1997-03-08 05:08:12 by jwe]

diff -r f81117f4754d -r d477bceb9e2a liboctave/CMatrix.cc
--- a/liboctave/CMatrix.cc	Fri Mar 07 07:01:09 1997 +0000
+++ b/liboctave/CMatrix.cc	Sat Mar 08 05:09:11 1997 +0000
@@ -3760,7 +3760,7 @@
 	    if (is)
 	      a.elem (i, j) = tmp;
 	    else
-	      return;
+	      return is;
 	  }
     }
 
diff -r f81117f4754d -r d477bceb9e2a scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Mar 07 07:01:09 1997 +0000
+++ b/scripts/ChangeLog	Sat Mar 08 05:09:11 1997 +0000
@@ -1,6 +1,10 @@
+Fri Mar  7 23:06:48 1997  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* statistics/corrcoef.m: Make it actually work.
+
 Thu Mar  6 12:36:30 1997  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
-	* statistics/corrcoef.m: Don't fail if single argument is a vector.
+	* statistics/corrcoef.m: Don't fail if single argument is a matrix.
 
 Sat Mar  1 15:23:14 1997  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
diff -r f81117f4754d -r d477bceb9e2a scripts/statistics/corrcoef.m
--- a/scripts/statistics/corrcoef.m	Fri Mar 07 07:01:09 1997 +0000
+++ b/scripts/statistics/corrcoef.m	Sat Mar 08 05:09:11 1997 +0000
@@ -42,7 +42,7 @@
   elseif (nargin == 1)
     c = cov (x);
     s = reshape (sqrt (diag (c)), 1, columns (c));
-    retval = c ./ sqrt (s * s');
+    retval = c ./ (s' * s);
   endif
 
 endfunction