rprod.m

这是我上传的第5个文件,是用于建模方面的,很有用,所上传的5个程序文件要协同工作才行

% row product
% function Z=rprod(X,Y)

function Z=rprod(X,Y)

[n m]=size(X);

if(length(Y(:,1)) ~=n  | length(Y(1,:)) ~=1)
  disp('Error in RPROD');
  return;
end

Z=X.*(Y*ones(1,m));