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