|
function AA
global mu w F;
mu=0.3;w=1.2;
cF=;
k=0;
for F=cF
k=k+1;
=ode45(@duffing,,);
x1=x(:,1);
count=find(t>1800);
Y=x1(count,:);
t1=t(count,:);
subplot(5,2,k)
plot(t1,Y)
xlabel('t');
ylabel('x ');
s=;
title(s);
end
function dx=duffing(t,x)
global mu w F;
dx=;
杜芬(Duffing)方程 Poincare 截面图
function aa
global mu w F;
mu=0.05;w=1;
F=7.5;
x0=;
tspan = 0:0.1*2*pi:50000;
=ode45(@duffing,tspan,x0);
m=zeros(7000,1);
n=zeros(7000,1);
for i=1:7000
m(i,1)=y(10*i,1);
n(i,1)=y(10*i,2);
end
plot(m,n,'k.','markersize',1);
function dx=duffing(t,x)
global mu w F;
dx=;
网上找的程序 你自己看看行不行
|
|