view general/numerical/prod1.m @ 6:0ce3c2070089

Removed duplicate code and fixed doc in timed_action.
author samer
date Mon, 14 Jan 2013 14:33:37 +0000
parents 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]);