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

first hg version after svn

+% 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