eliminatedupl.m

来自「用于非线性时间序列分析的软件包。可用于计算：时间延迟重构」· M 代码 · 共 25 行

function ret = eliminatedupl(data)

% Elimiert doppelt vorkommende Strings 
% einer Liste (als Cell-Array)

ret = {};

if ~isempty(data) 
	n = length(data);	
	work =  data{1};
	ret{1} = work;
	for i=2:n
		if ~strcmp(data{i}, work)	
			work = 	data{i};
			ret{end+1} = work;
		end
	end
end