view general/numerical/array/prod1.m @ 16:db7f4afd27c5

Rearranging numerical toolbox.
author samer
date Thu, 17 Jan 2013 13:20:44 +0000
parents general/numerical/prod1.m@e44f49929e56
children
line wrap: on
line source
function Y=prod1(X)
% prod1 - prod over dimension 1 and shiftdim 1
%
% prod1 :: [[N M]] -> [[M]].

	Z=prod(X,1);
	S=size(Z);
	Y=reshape(Z,[S(2:end) 1]);