呵呵,
那我就用频闪法把Poincare界面的程序写出来哈:
function dx=Xiangtu(t,x);
% 单摆方程[不显含时间t的自治系统]
% 方程如下:
% dθ/dt=ω,
% dω/dt=-2*β*[dθ/dt]-ω^2*sin(θ)+F*cos(vt)
% dψ/dt=v
betaa=0.25;
F=1.025;
v=2/3;
P2=-2*betaa*x(2)-x(2).^2.*sin(x(1))+F*cos(v*t);
dx=[x(2);P2;v];
M文件二为:
%Xiangtu_delineated绘制相图文件
options=odeset('RelTol',1e-7); %定义误差精度的,系统默认1e-3
v=2/3;
T=2*pi/v
dt=T/300;
[t,x]=ode45(@Xiangtu,[0:dt:320*T],[0,1.5,0],options);
plot(x(:,1),x(:,2),'.');
%%%%%%%%%%%%%%%
% poincare map
N=280*300;
plot(x(N:300:end,1),x(N:300:end,2),'k.') |