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

first hg version after svn

+function varargout = mircompute(algo,varargin)
+
+l = length(varargin{1});    % number of audio files.
+for i = 1:l
+    % for each audio file
+    v = varargin;
+    for j = 1:length(v)
+        % for each variable associated to that audio
+        if isa(v{j},'mirdata')
+            v{j} = get(v{j},'Data');
+        end
+        if iscell(v{j})
+            v{j} = v{j}{i};
+        end
+        %if not(iscell(v{j}))
+        %    v{j} = {v{j}};
+        %end
+    end
+    % final result for that audio
+    for k = 1:length(v{1})
+        % for each segment in that audio file
+        vk = v;
+        for j = 1:length(vk)
+            if iscell(vk{j})
+                vk{j} = vk{j}{k};
+            end
+        end
+        if 1 %nargout == 1 
+            res = algo(vk{:});
+        else %% used for miremotion, provokes bug else...
+            [res res2 res3 res4] = algo(vk{:}); 
+        end
+        if iscell(res)
+            lr = length(res);
+            for j = 1:lr
+                varargout{j}{i}{k} = res{j};
+            end
+        else
+            varargout{1}{i}{k} = res;
+            if nargout == 4
+                varargout{2}{i}{k} = res2;
+                varargout{3}{i}{k} = res3;
+                varargout{4}{i}{k} = res4;
+            end
+        end
+    end
+end