|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
下面是一个微分方程的分岔图,但不到对不对,现把程序和相关的图提供如下,望大家能帮忙回答!谢谢!如果不对,应该如何来编写该方程的分岔程序,谢谢!分岔参数为w
按理论上来说在w=1.2的时候应该要出现混沌状态,而在w=0.9左右的时候应该是周期运动,但是图中并没有出现这些现象,希望大家帮忙解决下,谢谢了!还有最后面"分岔图"是人家论文里面提到的图形,按理说如果是本程序正确的话,出来的图形应该和这个"分岔图"是类似的!谢谢!
function ff=www(t,x,flag,w,b)
ff=zeros(4,1);
g=9800;
E=0.12;
f=0.12;
a=0.5;
b=10.8;
q=0.16;
f0=25;
u=0.136/q;
%w=2.0;
e=sqrt(x(1)^2+x(2)^2);
G=g/((2*pi*f0)^2*q);
dx(1)=x(3);
dx(2)=x(4);
dx(3)=-2*E*x(3)-x(1)-a*(x(1)^2+x(2)^2)*x(1)-b*(1-1/e)*(x(1)-f*x(2))+u*w^2*cos(w*t);
dx(4)=-2*E*x(4)-x(2)-a*(x(1)^2+x(2)^2)*x(2)-b*(1-1/e)*(f*x(1)+x(2))+u*w^2*sin(w*t)-G;
ff=[dx(1);dx(2);dx(3);dx(4)]
w=0.5:0.01:2.0;
options = odeset('RelTol',1e-6,'AbsTol',[1e-6 1e-6 1e-6 1e-6]);
for n=1:length(w);
T=2*pi;
ts=[0:T/100:100*T];
x0=[0.001 0 0.001 0];
[t,X]=ode45('www',ts,x0,options,w(n));
figure(1)
plot(w(n),X(5000:100:10000,1),'.');
xlabel('\fontsize{18}\omega');
ylabel('\fontsize{18}x');grid
hold on
figure(2)
plot(w(n)*30/pi,X(5000:100:10000,2),'.');
xlabel('\fontsize{18}\omega');
ylabel('\fontsize{18}y');grid
hold on
end
[ 本帖最后由 chuandong418 于 2007-8-12 03:10 编辑 ] |
|