请教henon指数谱与文献有差别的问题

wlm_shooker

% x(k+1)=1-a.*x(k)^2+y(k);
% y(k+1)=0.3*x(k);
close all
clear
N=1000;
cp=[];
xp=[];
x(1)=0.2;
y(1)=0.2;
D2=1;
D3=0.3;
D4=0;
a0=0;
a1=1.4;
astep=0.01;
aa=a0:astep:a1;
N=length(aa);
L1=linspace(0,0,N);
L2=linspace(0,0,N);
LL1=linspace(0,0,N);
LL2=linspace(0,0,N);
for i=1:N
     a=a0+(i-1)*astep;
      x(1)=0.2;
      y(1)=0.2;
    for k=1:N;
        x(k+1)=1-a.*x(k)^2+y(k);
        y(k+1)=0.3*x(k);
    end
        x(1)=x(end);
        y(1)=y(end);
    for k=1:N;
        D1=-2*a*x(k);
        JT=[D1,D2;D3,D4];
        [v,d]=eig(JT);
        d=diag(d);
        L1(k+1)=L1(k)+log(abs(d(1))); % the first Lyapunonv exponent
        L2(k+1)=L2(k)+log(abs(d(2))); % the second Lyapunonv exponent
        x(k+1)=1-a.*x(k)^2+y(k);
        y(k+1)=0.3*x(k);
       %cp=[cp,a];
       %xp=[xp,x(k+1)];
     end
     LL1(i)=LL1(i)+L1(end)/N
     LL2(i)=LL2(i)+L2(end)/N
end
plot(aa,LL1,aa,LL2,aa,0)


请版主和高手们给看一下，问题出在何处，我的邮箱wlm_shooker@yahoo.com.cn

[ 本帖最后由 eight 于 2008-5-13 18:27 编辑 ]

sigma665

专业味太浓了
这种非语法错误，别人很难看懂

wlm_shooker

图我已画出来了，谢谢高手指导

ch_j1985

原帖由 wlm_shooker 于 2008-5-30 16:28 发表

                               
登录/注册后可看大图

图我已画出来了，谢谢高手指导

lz能否把解决问题后正确的代码跟大家分享一下，为后来者提供方便？

lzjtu

lz 的图挺漂亮
lz能否把代码跟大家分享一下
谢谢