声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 4238|回复: 16

[计算数学] 史上最短最快的李氏指数matlab程序

  [复制链接]
发表于 2012-6-7 06:33 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 牛小贱 于 2015-3-15 15:15 编辑

本人相信简单就是美,今天花了一天把之前的程序简化了,其中用QR分解来代替smith正交归一化和向量长度的求解。实测速度比原来循环程序快5倍左右。

程序里用的是henon map,也可以求解微分方程的李氏指数,只需要把Q和y两行用求解微分方程和jacobi矩阵代码代替。
  1. nit = 100000
  2. n=2

  3. y=[0;0];
  4. a=1.4; b=0.3;
  5. Q=eye(n);
  6. cum=zeros(1,n);
  7. Lexp=zeros(nit,n);     
  8. for i=1:nit
  9. Q=[-2*a*y(1), 1;b, 0]*Q;
  10. y=[1-a*y(1)^2+y(2); b*y(1)];
  11. [Q R]=qr(Q);
  12. cum=cum+log(diag(R)');
  13. Lexp(i,:)=cum./(i);
  14. end;

  15. plot(Lexp);
  16. Lys=sum(Lexp(end-1999:end,:))/2000
复制代码



点评

赞成: 5.0
赞成: 5
  发表于 2015-3-15 15:15

评分

2

查看全部评分

回复
分享到:

使用道具 举报

 楼主| 发表于 2012-6-8 05:40 | 显示全部楼层
这么好的程序居然没人顶,表示很熵心
发表于 2012-6-10 20:00 | 显示全部楼层
 楼主| 发表于 2012-6-11 01:29 | 显示全部楼层

点评

这是一般论坛的通病  发表于 2012-10-9 05:56
发表于 2012-6-19 18:05 | 显示全部楼层
看不太懂呢  我最近正在找这类的程序  我画的是硬弹簧Duffing系统的李亚普洛夫指数图  你这个程序能用吗
发表于 2012-6-20 00:19 | 显示全部楼层
我来顶顶顶顶顶顶顶顶顶顶!
发表于 2012-6-20 02:37 | 显示全部楼层
simber 发表于 2012-6-8 05:40
这么好的程序居然没人顶,表示很熵心

我想LZ应该是分享学习成果, 希望有人欣赏并参与讨论精进才是!
并非一味没意义的顶吧:@)
发表于 2012-6-20 13:06 | 显示全部楼层
本帖最后由 Rainyboy 于 2012-6-20 13:08 编辑

术业有专攻,实际上科研很多事就是近乎孤芳自赏。
况且,仅凭一段程序就表示欣赏的一定是专业的同行了,而这样近的同行(还包括无法看到本贴的)又能有几个呢?我想这也就是科技论文的都要求有详尽的参考文献,摘要和综述(简介)的原因吧,不然能看懂的人真的太少。若有以此工作为基础发表的学术论文,可以发一个名称或者连接或者附件上来,也许大家更能明白你的工作的意义。

评分

1

查看全部评分

发表于 2012-7-1 11:16 | 显示全部楼层
楼主能不能讲讲 给咱扫扫盲 我正好想用李氏指数 不知道你的代码怎么用 谢谢

我这可是注册了3天多才注册上的 就想留这个言 希望楼主能给回复一下 万分感谢
发表于 2012-9-20 21:56 | 显示全部楼层
看不懂
发表于 2012-9-25 22:01 | 显示全部楼层
看不明白啊,楼主解释一下就更完美了。
发表于 2012-10-5 21:01 | 显示全部楼层
有具体的数学模型和应用就可以
发表于 2014-12-24 23:31 | 显示全部楼层
顶顶顶  可是  楼主 能不能好事情做到底  把程序完善下啊
发表于 2015-3-4 16:08 | 显示全部楼层
为什么运行后感觉不太对啊?恒定的LE?
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-12-19 00:56 , Processed in 0.103758 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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