view toolboxes/FullBNT-1.0.7/bnt/examples/static/Zoubin/rsum.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

% row sum
% function Z=rsum(X)

function Z=rsum(X)

[N M]=size(X);

Z=zeros(N,1);

if M==1,
  Z=X;
elseif M<2*N,
  for m=1:M,
    Z=Z+X(:,m);
  end;
else
  for n=1:N
    Z(n)=sum(X(n,:));
  end;
end