Daniel@0: % function Z=rdiv(X,Y)
Daniel@0: %
Daniel@0: % row division: Z = X / Y row-wise
Daniel@0: % Y must have one column 
Daniel@0: 
Daniel@0: function Z=rdiv(X,Y)
Daniel@0: 
Daniel@0: [N M]=size(X);
Daniel@0: [K L]=size(Y);
Daniel@0: if(N ~= K | L ~=1)
Daniel@0:   disp('Error in RDIV');
Daniel@0:   return;
Daniel@0: end
Daniel@0: 
Daniel@0: Z=zeros(N,M);
Daniel@0: 
Daniel@0: if M<N,
Daniel@0:   for m=1:M
Daniel@0:     Z(:,m)=X(:,m)./Y;
Daniel@0:   end
Daniel@0: else
Daniel@0:   for n=1:N
Daniel@0:     Z(n,:)=X(n,:)/Y(n);
Daniel@0:   end;
Daniel@0: end;