|
楼主 |
发表于 2007-8-20 09:01
|
显示全部楼层
我的程序如下:clc;clear all
global r K beta mu c m delta h tau
r=1; K=500; beta=0.001; mu=0.03; c=8; m=150; delta=0.2; h=0.5; tau=40;
sol=dde23('Hopfbifurcation',tau,[1.50;1.00;0.20],[0,3000]);
figure(1);
plot(sol.x,sol.y(1,:),'r');xlabel('t');ylabel('T');
figure(2);
plot(sol.x,sol.y(2,:),'r');xlabel('t');ylabel('I');
figure(3);
plot(sol.x,sol.y(3,:),'r');xlabel('t');ylabel('V');
figure(4);
plot3(sol.y(1,:),sol.y(2,:),sol.y(3,:));
xlabel('T');ylabel('I'),zlabel('V');
function y = Hopfbifurcation(t,x,z)
global r K beta mu c m delta h tau
xlag=z(:,1);
y=zeros(3,1); % a column vector
y(1)=r.*x(1).*(1-x(1)/K)-beta.*x(1).*xlag(2);
y(2)=beta.*x(1).*xlag(2)-mu.*x(2)-c.*x(2).*x(3)/(m.*x(3)+x(2));
y(3)=delta.*x(3).*(1-h.*x(3)/x(2)); |
|