|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
这是VDP方程
function ydot=zjzdfun(t,y,flag,u,x0,w0,v,w)
ydot=[y(2);
u*(x0^2-y(1)^2)*y(2)-y(1)*w0^2-v*cos(w*t)];
调用程序
clc
clear
close all
u=[0.85,1.02,0.66,1.08];
x0=1;w0=1;v=1;w=0.44;T=2*pi/w;
str{1}='庞家莱截面--周期1吸引子';
str{2}='庞家莱截面--周期2吸引子';
str{3}='庞家莱截面--不变环面吸引子';
str{4}='庞家莱截面--奇怪吸引子';
for j=1:4
[t,y]=ode23('zjzdfun',[0:T/1000:50*T],[4,4],[],u(j),x0,w0,v,w);
figure
subplot(2,1,1)
plot(t,y(:,1));
title('位移曲线');
xlabel('t');ylabel('x');
subplot(2,2,3)
plot(y(3000:end,1),y(3000:end,2));
axis([-3 3 -4 4]);
xlabel('x');ylabel('dx/dt');
title('相图');
subplot(2,2,4)
axis([-3 1 -1 1])
hold on
for i=7000:1000:14000
plot(y(i,1),y(i,2),'r.');
end
title(str{j});
end
程序可直接使用,而且可作图
不好意思我不知道如何上传图片
[ 本帖最后由 zyl-jd2000 于 2008-5-21 12:50 编辑 ] |
|