老师,我是这样编写程序的,方程和你是一样的,贴上我的分岔图程序
function duffing_bifur_F1
clear;
global F wd;
wd=1.0;
options=odeset('RelTol',1e-6);
period=2*pi/wd;
for F=0.1:0.001:0.35;
y0=[0,0.001,0];
[t,y]=ode45('duffing',[0:period/100:1000*period],y0,options,F) ;
hold on
plot(F,y(90000:100:end,1),'r.')
end
我的分岔图
和老师你的程序运行结果图有点类似,但是不同的是,我这个运算了很久,大概1个多小时左右。参考论坛的几个做分岔图的程序,我这个方法是频闪法吗?