mprod.m

来自「基于OFDM的无线宽带系统仿真It contains mainly two pa」· M 代码 · 共 22 行

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 990317

v = adjsiz(varargin{:});
s = v{1};
for i=2:length(v)
 s = s.*v{i};
end