声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1180|回复: 1

[稳定性与分岔] 求助??

[复制链接]
发表于 2009-4-29 10:48 | 显示全部楼层 |阅读模式

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

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

x
各位师兄师姐 帮忙看看这个poincare 图怎么会是这个样子??我实在是愚钝 做了好长时间了 ,都是这样的  期盼大家的帮忙。。。。。。。、
下面是程序
function xdot=myff1(t,x,flag,v)
if abs(x(1))<=0.4*10^6
      ff=w1^2*(x(1))+a1;
  elseif abs(x(1))<=0.3*10^6
      ff=0;
  elseif abs(x(1))>0.4*10^6
      ff=w2^2*(x(1))+a2;
  elseif abs(x(1))>=0.5*10^6
      ff=w1^2*(x(1))-a3;
  else
      ff=w2^2*(x(1))-a4;
end   
xdot=[x(2);-2*betta*x(2)-ff+p*sin(v*t)];


function  poincareT1
global p
global v
global betta
global w1
global w2
global a1
global a2
global a3
global a4
betta=0.6;w1=231;w2=163.7;p=0.935;
a1=-0.01608;a2=0.03752;a3=-0.05628;a4=-0.00804;
v=26.1
T=2*pi/v;
tspan=[0:0.1*T:70000];                                                                                                                                                                                                                                                                                          
[t,x]=ode45('myff1',tspan,x0);
m=zeros(10000,1);
n=zeros(10000,1);
for i=1:10000
    m(i,1)=x(10*i,1);
    n(i,1)=x(10*i,2);
end
plot(m,n,'k.','markersize',1);
xlabel('x','fontsize',14);
ylabel('dx/dt','fontsize',14);


[ 本帖最后由 yanzi 于 2009-4-29 11:11 编辑 ]
0.6!p25.8.jpg
0.6!p26.35.jpg

1.doc

115.5 KB, 下载次数: 3

回复
分享到:

使用道具 举报

 楼主| 发表于 2009-4-29 11:13 | 显示全部楼层
放大庞加莱图下面的黑点就是下面的图
25.8.jpg
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-12-25 00:38 , Processed in 0.083491 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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