【总结】Lyapunov指数的计算方法

octopussheng

从其理论上看，确实是两种不同的方法，上面讲的应该比较清楚了！

LET精度高也是我用Lorenz、Rossler系统进行验证的，你可以试试看！

hohoo

你可以用一个简单的矩阵进行验证，可以看到得到的特征值是一样的

octopussheng

我知道你的意思，实际上计算的时候确实有一定的差别，因为LET的源码我也没有去研究它，只能给出一个结果，如果你有算例的话，非常欢迎你在这里贴出来哦！

也请指正我帖子里存在的一些问题！呵呵

hohoo

我看了LEt工具箱的代码 区别就是let工具箱剔除了前200次迭代的不稳定解 而你给出的正交化方法 包含了所有的解 我想将正交化的方法仿照let工具箱的算法改一下 看看最后的结果怎么样次

[ 本帖最后由 eight 于 2008-2-25 16:10 编辑 ]

octopussheng

好啊，支持你做下去，因为对于编程，我其实还是蛮头大的，呵呵！加油了！

hohoo

呵呵 我也一样 编程不是一件好玩的事

chuandong418

LET工具箱如何使用?

ivy_1031

一直只用wolf的算法，今天看到这个帖子激动的哟:lol :lol

咕噜噜

有wolf算法的程序给我一个如何？或者直接贴出来，多谢

octopussheng

前面有的啊，你没看到么？呵呵！仔细看看！

咕噜噜

不好意思，忘了:@L

sssssxxxxx921

你其中的C-C算法是不是以下这样的， 构造序列取点时是连续取点   

还是像庞加莱图一样隔一周期取一个点？

sssssxxxxx921

function [s,delt_s,s_cor]=C_CMethod(data)
%this function calculate time delay and embedding demension with C-C
%Method,which proved by H.S.Kim
%skyhawk&flyinghawk
% %****************?????****************************
% clear all;
% data=load('C:\Documents and Settings\Administrator\??\a.txt');% ????
% %************************************************
data=[0.2483 0.1337 0.0993 0.1648 0.2303 0.2967 0.3504 0.2319 0.1627 0.0941 0.0523 0.0469 0.0944 0.0698];

N=length(data);
max_d=20;%the maximum value of the time delay

sigma=std(data);%calcute standard deviation s_d

for t=1:max_d
    t
    s_t=0;
    delt_s_s=0;
    for m=2:5
        s_t1=0;
        for j=1:4
            r=sigma*j/2;
            data_d=disjoint(data,N,t);%????????t?????????
            [ll,N_d]=size(data_d);
            s_t3=0;
            for i=1:t
                i
                Y=data_d(i,:);
                C_1(i)=correlation_integral(Y,N_d,r);%??C(1,N_d,r,t)
                X=reconstitution(Y,N_d,m,t);%?????
                N_r=N_d-(m-1)*t;
                C_I(i)=correlation_integral(X,N_r,r);%??C(m,N_r,r,t)
                s_t3=s_t3+(C_I(i)-C_1(i)^m);%?t???????????
            end
            s_t2(j)=s_t3/t;
            s_t1=s_t1+s_t2(j);%?rj??
        end
        delt_s_m(m)=max(s_t2)-min(s_t2);%?delt S(m,t)
        delt_s_s=delt_s_s+delt_s_m(m);%delt S(m,t)?m??
        s_t0(m)=s_t1;
        s_t=s_t+s_t0(m);%S?m??
    end
    s(t)=s_t/16;
    delt_s(t)=delt_s_s/4;
    s_cor(t)=delt_s(t)+abs(s(t));
   
end
fid=fopen('result.txt','w');
fprintf(fid,'%f %f %f %f/n',t,s(t),delt_s(t),s_cor(t));
fclose(fid);
t=1:max_d;
plot(t,s,t,delt_s,'.',t,s_cor,'*')

sssssxxxxx921

oct   你计算时间延迟的c-c算法程序怎么没有啊   能不能发上来一个？

咕噜噜

oct回家了，要一段时间才能回来