声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1749|回复: 2

[稳定性与分岔] 请高手看看这分岔程序

[复制链接]
发表于 2007-10-30 12:49 | 显示全部楼层 |阅读模式

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

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

x
clear all
global c
zhang=[];
M=[0:0.01:50];
counter=1;
for counter=1:length(M)
    c=M(counter);
    i=2;
xmax=0;
xmaxold=0;
frmdata=[];
error=0;
tspan=[0 300];
var=1;
y0=[0.1;0.1;0.1;0.1];
[t,x]=ode45(@chaoLu2,tspan,y0);
while i < size(x,1)
       if x(i-1,var) < x(i,var) & x(i+1,var) <= x(i,var)
            xmax=x(i,var);
            if xmaxold ~= 0
                frmdata=[frmdata ; xmax xmaxold];
            end
                xmaxold=xmax;
       end
        i=i+1;
end
r= length(frmdata)-20:length(frmdata);
fradata1(1,r)=frmdata(r,1);
zhang=[zhang;fradata1];%这个地方老是显示错误,这是错误信息{All rows in the bracketed expression must have the same
number of columns.}%
end

plot(M,zhang,'k.','markersize',1);
xlabel(sprintf('c'));
ylabel(sprintf('x'))

function dx=chaoLu2(t,X)

x=X(1);

y=X(2);

z=X(3);
w=X(4);

global c;
dx=zeros(4,1);

dx(1)=-35*(x-y-yz);

dx(2)=-x*z+w+14*y;

dx(3)=-3*z+y*x;
dx(4)=-c*x
请高手能给我指导下,谢谢!
回复
分享到:

使用道具 举报

发表于 2007-10-30 13:45 | 显示全部楼层
搜索论坛,用最大值法求分叉图
你这个就是最大值法
发表于 2007-10-31 11:51 | 显示全部楼层

回复 #1 earth 的帖子

是程序出了问题还是什么?
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-9-21 12:23 , Processed in 0.068200 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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