声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1891|回复: 1

[分形与混沌] 求解最大李雅普诺夫指数程序的问题

[复制链接]
发表于 2013-11-19 11:07 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
本人用如下代码求解最大李雅普诺夫指数,程序中的的‘delt_t’是什么意思啊?该如何取值呢?我的数据是每隔一个小时取一个数据,一天24个数据,总共337天,即数据为337x24.
代码如下:
  1. function lambda_1=largest_lyapunov_exponent(data,N,m,tau,P)
  2. %the function is used to calcultate largest lyapunov exponent with the
  3. %mended algorithm,which put forward by lv jing hu.
  4. %data:the time series
  5. %N:the length of data
  6. %m:enbedding dimention
  7. %tau:time delay
  8. %P:the mean period of the time series,calculated with FFT
  9. %lambda_1:return the largest lyapunov exponent
  10. %skyhawk
  11. delt_t=1;
  12. Y=reconstitution(data,N,m,tau );%reconstitute state space
  13. M=N-(m-1)*tau;%M is the number of embedded points in m-dimensional space
  14. for j=1:M
  15.     d_max=1e+100;
  16.     for jj=1:M                                              %寻找相空间中每个点的最近距离点,并记下
  17.         d_s=0;                                              %该点下标
  18.         if abs(j-jj)>P                                      %限制短暂分离
  19.             for i=1:m
  20.                 d_s=d_s+(Y(i,j)-Y(i,jj))*(Y(i,j)-Y(i,jj));
  21.                 d_min=d_max;
  22.                 if d_s<d_min
  23.                    d_min=d_s;
  24.                    idx_j=jj;
  25.                end
  26.             end
  27.         end
  28.     end
  29. %     index(j)=idx_j;
  30.     max_i=min((M-j),(M-idx_j));%计算点j的最大演化时间步长i
  31.     for k=1:max_i              %计算点j与其最近邻点在i个离散步后的距离
  32.         d_j_i=0;
  33.         for kk=1:m
  34.             d_j_i=d_j_i+(Y(kk,j+k)-Y(kk,idx_j+k))*(Y(kk,j+k)-Y(kk,idx_j+k));
  35.             d(k,j)=d_j_i;
  36.         end
  37.     end
  38. end

  39. %对每个演化时间步长i,求所有的j的lnd(i,j)平均
  40. [l_i,l_j]=size(d);
  41. for i=1:l_i
  42.     q=0;
  43.     y_s=0;
  44.     for j=1:l_j
  45.         if d(i,j)~=0
  46.             q=q+1;
  47.             y_s=y_s+log(d(i,j));
  48.         end
  49.     end
  50.     y(i)=y_s/(q*delt_t);
  51. end
  52. x=1:length(y);
  53. pp=polyfit(x,y,1);
  54. lambda_1=pp(1);
  55. yp=polyval(pp,x);
  56. plot(x,y,'-o',x,yp,'--')
复制代码


回复
分享到:

使用道具 举报

发表于 2015-3-19 10:08 | 显示全部楼层
这时时间序列的吗?
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-12-19 01:09 , Processed in 0.083832 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表