diff toolboxes/FullBNT-1.0.7/KPMtools/myunion.m @ 0:e9a9cd732c1e tip

first hg version after svn

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolboxes/FullBNT-1.0.7/KPMtools/myunion.m	Tue Feb 10 15:05:51 2015 +0000
@@ -0,0 +1,29 @@
+function C = myunion(A,B)
+% MYUNION Union of two sets of positive integers (much faster than built-in union)
+% C = myunion(A,B)
+
+if isempty(A)
+  ma = 0;
+else
+  ma = max(A);
+end
+
+if isempty(B)
+  mb = 0;
+else
+  mb = max(B);
+end
+
+if ma==0 & mb==0
+  C = [];
+elseif ma==0 & mb>0
+  C = B;
+elseif ma>0 & mb==0
+  C = A;
+else
+  %bits = sparse(1, max(ma,mb));
+  bits = zeros(1, max(ma,mb));
+  bits(A) = 1;
+  bits(B) = 1;
+  C = find(bits);
+end