diff general/numerical/prodn.m @ 4:e44f49929e56

Adding reorganised general toolbox, now in several subdirectories.
author samer
date Sat, 12 Jan 2013 19:21:22 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/numerical/prodn.m	Sat Jan 12 19:21:22 2013 +0000
@@ -0,0 +1,5 @@
+function Y=prodn(X,n)
+% prod1 - prod over dimension 1 and shiftdim 1
+%
+% prod1 :: [[N M]] -> [[M]].
+Y=shiftdim(proddims(X,1:n),n);