这是我按照上面的思路写的一个画分岔图的程序,结果跑出来有问题,高手指点一下吧!第一次画分岔图,方法好笨.:@(
%newsystem_bifur.m
%x'=a(y-z)+yz
%y'=cx-y-xz
%z'=xy-bz
function s=newsystem_bifur(t,x,flag,p)
a=35,c=25,b=p;
s=[-a*x(1)+a*x(2)+x(2)*x(3);
c*x(1)-x(2)-x(1)*x(3);
x(1)*x(2)-b*x(3)];
%%%%%%%%%%%%%%%%%%%%
%newsystem_bifur_main.m
x0=[1 1 1];
tspan=[0:0.01:200];
figure;
for p=0:0.1:15 %b=p
[t,x]=ode45('newsystem_bifur',tspan,x0,[],p);
plot(p,x(:,2),'b','markersize',2);
axis([0,15,-30,30]);
xlabel('b'),ylabel('y'),title('newsystem分岔图');
hold on;
end |