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