函数文件
function dr=pen(t,x,flag,F)
dr=[x(2);-0.5*x(2)-sin(x(1))+F*cos(2/3*t)];
-----------------------------------------------------------
脚本文件
hold on;
N=80;
for F=0.96:0.01:1.52
for n=1:N
[t,x]=ode45('pen',[0,66],[0,0.6],[ ],F);
T(n)=x(end,2);
end
plot(F*ones(1,N),T,'.','markersize',1)
end
注: 此程序运行时间有点长
米脂
相关分类