|
楼主 |
发表于 2009-12-14 08:16
|
显示全部楼层
回复 沙发 无水1324 的帖子
function dx=chaos5(t,x)
dx=zeros(8,1);
E=7.5;
dx(1)=-x(1)+x(2)+x(1)*x(3)+x(4)*x(2)+E;
dx(2)=-x(1)-x(2)-x(2)*x(3)+x(4)*x(1);
dx(3)=-2*x(1)^2+2*x(2)^2-x(3)+x(4);
dx(4)=-4*x(1)*x(2)-x(3)-x(4);
k=0.3;
dx(5)=-x(5)+x(6)+x(5)*x(7)+x(8)*x(6)+E-k*x(1)+k*x(2);
dx(6)=-x(5)-x(6)-x(6)*x(7)+x(8)*x(5)-k*x(1)-k*x(2);
dx(7)=-2*x(5)^2+2*x(6)^2-x(7)+x(8);
dx(8)=-4*x(5)*x(6)-x(7)-x(8);
function chaos6
[T,x]=ode45('chaos5',[0 100],[0.1;0.1;0.1;0.1;0.2;0.2;0.1;0.1]);
subplot(2,1,1)
plot(T,x(:,5).^2+x(:,6).^2)
t=0:0.1:100;
a=spline(T,x(:,5).^2+x(:,6).^2,t)
for m=1:1000
l(m,1)=a(m)
end
[T,x]=ode45('chaos9',[0 100],[0.1;0.1;0.1;0.1;0.1;0.1;0.2;0.2]);
subplot(2,1,2)
plot(T,x(:,5).^2+x(:,6).^2)
t=0:0.1:100;
b=spline(T,x(:,5).^2+x(:,6).^2,t)
for m=1:1000
k(m,1)=b(m)
end
figure
i=1:1000
plot(0.1*i,k(i,1)-l(i,1))
xlabel('t'),ylabel('I(A_1)-I(B_1)') |
|