马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我按照别人的论文用matlab编程出来得到的分岔图太奇怪了, 应该是错的,但是找不到原因。
附一下我的程序
---------------------------------------------------------
function dx=jeffliewen(t,x)
global w
m=32.1;
c=2100;
e=0.002;
k=2.5e7;
g=9.81;
s0=m*g/k;
omega=sqrt(k/m);
beta=0;
theta=0;
k1=1;%fa xiang gang du
k2=1;%qie xiang gang du
k3=0;%ou he gang du
k11=k1*(cos(theta))^2+k2*(sin(theta))^2-k3*sin(2*theta);%x fang xiang gang du
k22=k1*(sin(theta))^2+k2*(cos(theta))^2+k3*sin(2*theta);%y fang xiang gang du
k33=(k1-k2)*sin(theta)*cos(theta)+k3*cos(2*theta);%x,y fang xiang gang du
dx=[x(2);
-x(2)*c/(m*omega)-x(1)*k11/k-x(3)*k33/k+1+cos(theta+beta)*e*w^2/(s0*omega^2);
x(4);
-x(4)*c/(m*omega)-x(3)*k22/k-x(1)*k33/k+sin(theta+beta)*e*w^2/(s0*omega^2)];
---------------------------------------------------------
clear;
clc;
hold on;
global w
f=10:3:1200;
for i=1:length(f)
disp(f(i));
w=f(i);
T=2*pi;
x0=[0.1;0;0.1;0];
tspan=0:T/100:100*T;
[t,x]=ode45('jeffliewen',tspan,x0);
x0=x(end,:);%ba yi ge zhou qi de chu zhi geng xin
plot(f(i),x(4000:100:end,1),'markersize',5);
xlabel ('转速w');
ylabel ('位移x1')
end
希望能帮我看看这个程序有没有什么问题。谢谢! |