对应的程序
function dx=duffing(t,X)
global w f;
c=0.3;
x=X(1);
y=X(2);
psi=X(3);
dx=zeros(3,1);
dx(1)=y;
dx(2)=-c*y+x-x^3+f*cos(psi);
dx(3)=w;
主程序
function duffing_poincare_f
clear;
global f w;
w=1.2;
T=2*pi/w;
x0=[0,0.001,0];
f=0.28;
[t,x]=ode45('duffing',[0:T/10:10000*T],x0) ;
plot(x(7000:10:end,1),x(7000:10:end,2),'k.','markersize',2);
xlabel('x');ylabel('xdot');title('poincare');