Mercurial > hg > octave-max

changeset 12111:050b8c0e1531 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
correct previous patch
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 26 Nov 2009 14:39:55 +0100
parents 8166d596247e
children 3ab05b7b61ee
files scripts/linear-algebra/dot.m
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/linear-algebra/dot.m
+++ b/scripts/linear-algebra/dot.m
@@ -43,12 +43,12 @@
     if (! size_equal (x, y))
       error ("dot: sizes of arguments must match");
     endif
-    z = sum(x .* conj (y));
+    z = sum(conj (x) .* y);
   else
     if (! size_equal (x, y))
       error ("dot: sizes of arguments must match");
     endif
-    z = sum(x .* conj (y), dim);
+    z = sum(conj (x) .* y, dim);
   endif
 
 endfunction