mutual_information_main.m

在相空间重构中

function  tau=Mutual_Information_main(data)
%互信息法求tau
%作者：Adu 武汉大学 [e-mail]
%data;     % 时间序列，列向量
%max_tau = 100;  % 本程序默认最大时延
%Part = 128;     % 本程序默认box大小

[entropy]=mutual(data,128);
for i = 1:length(entropy)-1           
    if (entropy(i)<=entropy(i+1))
        tau = i-1;            
        break;
    end
end
               
plot(0:length(entropy)-1,entropy)
xlabel('tau');
title('互信息法求tau');