comparison toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirdata/intersect.m @ 0:e9a9cd732c1e tip

first hg version after svn

+function i = intersect(a,b,thr)
+
+if nargin<3
+    thr = .01;
+end
+
+va = get(a,'PeakVal');
+pa = get(a,'PeakPos');
+ma = get(a,'PeakMode');
+if isa(a,'mirscalar')
+    xa = get(a,'FramePos');
+else
+    xa = get(a,'Pos');
+end
+vb = get(b,'PeakVal');
+pb = get(b,'PeakPos');
+mb = get(b,'PeakMode');
+if isa(b,'mirscalar')
+    xb = get(b,'FramePos');
+else
+    xb = get(b,'Pos');
+end
+
+for j = 1:length(va)
+    for k = 1:length(va{j})
+        [nl nc np] = size(va{j}{k});
+        for c = 1:nc
+            for p = 1:np
+                [pacp,ix] = sort(pa{j}{k}{1,c,p});
+                vacp = va{j}{k}{1,c,p}(ix);
+                macp = ma{j}{k}{1,c,p}(ix);
+                [pbcp,ix] = sort(pb{j}{k}{1,c,p});
+                xajk = xa{j}{k};
+                xbjk = xb{j}{k};
+                if isa(a,'mirscalar')
+                    xajk = mean(xajk);
+                end
+                if isa(b,'mirscalar')
+                    xbjk = mean(xbjk);
+                end
+                ia = 1;
+                ib = 1;
+                ii = 1;
+                while ia <= length(pacp) && ib <= length(pbcp)
+                    if abs(xajk(pacp(ia))-xbjk(pbcp(ib)))<thr
+                        picp(ii) = pacp(ia);
+                        vicp(ii) = vacp(ia);
+                        micp(ii) = macp(ia);
+                        ia = ia+1;
+                        ib = ib+1;
+                        ii = ii+1;
+                    elseif xajk(pacp(ia))<xbjk(pbcp(ib))
+                        ia = ia+1;
+                    else
+                        ib = ib+1;
+                    end
+                end
+            pa{j}{k}{1,c,p} = picp;
+            va{j}{k}{1,c,p} = vicp;
+            ma{j}{k}{1,c,p} = micp;
+            end
+        end
+    end
+end
+
+i = set(a,'PeakPos',pa,'PeakVal',va,'PeakMode',ma);