function s = mprod(varargin) % multiplies a number of argument% DESCRIPTION s = mprod(a,b,c,...)%  Multiplies (.*) variables of different sizes.%  Arguments are expanded to fit each other and then added together.%  Expansion is made on singleton dimensions to fit the size of other.% INPUT%  Any input argument list of numeric matrices.% OUTPUT%  s -- The product (.*) of the inputs% TRY%  mprod(ones(2,1),ones(1,2)), size(mprod(ones(2,1),ones(2,3,4)))% SEE ALSO %  mplus,adjsiz,adjsiza% by Magnus Almgren 990317v = adjsiz(varargin{:});s = v{1};for i=2:length(v) s = s.*v{i};end