mutual_information_main.m

来自「互信息法求时间延迟」· M 代码 · 共 18 行

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

[entropy]=mutual(data);
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');