wolffd@0: % row product
wolffd@0: % function Z=rprod(X,Y)
wolffd@0: 
wolffd@0: function Z=rprod(X,Y)
wolffd@0: 
wolffd@0: if(length(X(:,1)) ~= length(Y(:,1)) | length(Y(1,:)) ~=1)
wolffd@0:   disp('Error in RPROD');
wolffd@0:   return;
wolffd@0: end
wolffd@0: 
wolffd@0: Z=zeros(size(X));
wolffd@0: 
wolffd@0: for i=1:length(X(1,:))
wolffd@0:   Z(:,i)=X(:,i).*Y;
wolffd@0: end