|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我算单盘对称转子的动力特性,计算出来的稳态响应的频率和激励频率无关,一直稳定在0.08Hz附近,。高手们支支招啊程序:
function a
clc
clear
T=2*pi/1000;
tt=0:T/50:100000*T;
hold on
[t,yy]=ode45('fun',tt,[0.001,0.001,0.001,0.001,0.001,0.001,0.001,0.001]);
subplot(411)
plot(t,yy(:,1));
title('轮盘处x向时域波形')
grid on
subplot(412)
plot(t,yy(:,2));
title('轮盘处y向时域波形')
grid on
subplot(413)
plot(t,yy(:,3));
title('轴承处x向时域波形')
grid on
subplot(414)
plot(t,yy(:,4));
title('轴承处y向时域波形')
grid on
function ydot=fun(t,y)
c=y(1);d=y(2);e=y(3);f=y(4);
c1=y(5);d1=y(6);e1=y(7);f1=y(8);
% 短轴承非线性油膜力解析式
alpha=atan((f+2*e1)/(e-2*f1))-pi/2*sign((f+2*e1)/(e-2*f1))-pi/2*sign(f+2*e1);
S=(e*cos(alpha)+f*sin(alpha))/(1-(e*cos(alpha)+f*sin(alpha))^2);
G=2/(1-e^2-f^2)^0.5*(pi/2+atan((f*cos(alpha)-e*sin(alpha))/(1-e^2-f^2)^0.5));
V=(2+(f*cos(alpha)-e*sin(alpha))*G)/(1-e^2-f^2);
Z=-((e-2*f1)^2+(f+2*e1)^2)^0.5/(1-e^2-f^2);
fx=Z*(3*e*V-sin(alpha)*G-2*cos(alpha)*S);
fy=Z*(3*f*V+cos(alpha)*G-2*sin(alpha)*S);
miu=0.018; % 滑油粘度
omega=1000; % 转速
r=0.057; % 转子轴半径/圆盘内径
cc=0.0002; % 轴承间隙
L=0.0285; % 轴承长度。文章里还有个几何长度,意义?
C=3000; % 轴承处结构阻尼
m1=420;m2=50; % 质量
rou=0.1; % 无量纲偏心
a=3e3/omega;
k=2.105e8/2/omega^2;
tau=omega*t;
G1=9.8/(cc*omega^2);
delta=miu*omega*r*L*(r/cc)^2*(L/(2*r))^2;
m22=m2*omega^2*cc/delta;
ydot=[c1;
d1;
e1;
f1;
-a/m1*c1-2*k/m1*(c-e)+rou*cos(tau); % 轮盘
-a/m1*d1-2*k/m1*(d-f)+rou*sin(tau)-G1;
-k/m2*(e-c)+1/m22*fx; % 轴承处
-k/m2*(f-d)+1/m22*fy-G1;
];
运动微分方程如上图
|
|