Mercurial > hg > ishara

diff general/numerical/matrix/minner.m @ 16:db7f4afd27c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rearranging numerical toolbox.
author samer
date Thu, 17 Jan 2013 13:20:44 +0000
parents general/numerical/ttimes.m@e44f49929e56
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/numerical/matrix/minner.m	Thu Jan 17 13:20:44 2013 +0000
@@ -0,0 +1,13 @@
+function C=minner(A,B)
+% minner - inner product for arbitrary dimension arrays
+%
+% ttimes :: [[I,J]], [[J,K]] -> [[I,K]].
+%
+% ie just like mtimes, but I and K can be row vectors
+
+Adom=size1(A);
+Bdom=size1(B);
+A=reshape(A,[],Bdom(1));
+B=reshape(B,Bdom(1),[]),
+C=reshape(A*B,tosize([Adom(1:end-1) Bdom(2:end)]));
+