samer@16: function C=minner(A,B)
samer@16: % minner - inner product for arbitrary dimension arrays
samer@4: %
samer@16: % ttimes :: [[I,J]], [[J,K]] -> [[I,K]].
samer@4: %
samer@16: % ie just like mtimes, but I and K can be row vectors
samer@4: 
samer@16: Adom=size1(A);
samer@16: Bdom=size1(B);
samer@16: A=reshape(A,[],Bdom(1));
samer@16: B=reshape(B,Bdom(1),[]),
samer@16: C=reshape(A*B,tosize([Adom(1:end-1) Bdom(2:end)]));
samer@4: