|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
小弟最近在弄滑动轴承轴颈中心的轴心轨迹,根据论坛上的一个帖子和一篇英文文章,但是所得到的的结果不收敛,一般情况下经过无量纲话之后轴颈中心的xy方向的位移都是【-1,1】之间的,但是为什么总是发散的呢?我把那个帖子的网址贴出来,希望大家知道的能指导一下小弟哪里有问题,谢谢了~~~
由于不能贴网址,我把具体的内容移过来,希望原作者见谅,我也是想集思广益,解决问题。
function book_oilfilm_force
clear all
clc
y0=[0.01;0.01;0.0;0.0];
ff=2*pi;
fs=256*3;
tspan=[0:ff/fs:1000*ff];
options=odeset('rel',1e-6,'abs','1e-6');
[t,y]=ode45(@oilfilm,tspan,y0,options);
plot(t,y(:,1));
title('水平方向时域图')
xlabel('时间/t')
ylabel('x')
figure
plot(y(:,1),y(:,3))
title('phase figure')
xlabel('x')
ylabel('dx')
function yy=oilfilm(t,y)
%油膜力表达式
%%%%%%%%%%%%%%%%
ppp1=(y(2)+2.0*y(3))/(y(1)-2.0*y(4));
sign1=sign(ppp1);
ppp2=y(2)+2.0*y(3);
sign2=sign(ppp2);
alpha=atan(ppp1)-pi/2.0*(sign1+sign2);
alphaa=atan((y(2)*cos(alpha)-y(1)*sin(alpha))/sqrt(abs(1.0-abs(y(1)*y(1))-abs(y(2)*y(2)))));
fg=2.0*(pi/2.0+alphaa)/sqrt(abs(1.0-abs(y(1)*y(1))-abs(y(2)*y(2))));
fv=(2.0+(y(2)*cos(alpha)-y(1)*sin(alpha))*fg)/(1.0-abs(y(1)*y(1))-abs(y(2)*y(2)));
fs=(y(1)*cos(alpha)+y(2)*sin(alpha))/(1.0-abs((y(1)*cos(alpha)+y(2)*sin(alpha))*(y(1)*cos(alpha)+y(2)*sin(alpha))));
f1=sqrt(abs(abs((y(1)-2.0*y(4))*(y(1)-2.0*y(4)))+abs((y(2)+2.0*y(3))*(y(2)+2.0*y(3)))))/(1.0-abs(y(1)*y(1))-abs(y(2)*y(2)));
fx=-1.0*f1*(3.0*y(1)*fv-sin(alpha)*fg-2.0*cos(alpha)*fs);
fy=-1.0*f1*(3.0*y(2)*fv+cos(alpha)*fg-2.0*sin(alpha)*fs);
%%%%%%%%%%%%%%%%%%%
%参数
segma=0.1;%文中的 σ
p=0.3;%小写的平,为 偏心率ρ
M=70.0;%文中的m
P=170/2.0;%转子重力,大写的P
Fx=fx/(segma*P);%无量纲化的油膜力
Fy=fy/(segma*P);
G=1/(segma*M); %无量纲化后的重力
yy=[y(3);
y(4);
p*sin(t)+Fx/M;
p*cos(t)-G+Fy/M;
];
运动方程
论文中结果
编程结果1
file:///d:/users/administrator/appdata/roaming/360se6/User Data/Temp/forum.php?mod=attachment&aid=NTUxNzR8NGNiNzczNzl8MTM3MDU2ODk5MnwxODM3NDR8MTExMDQ5&noupdate=yes
file:///d:/users/administrator/appdata/roaming/360se6/User Data/Temp/forum.php?mod=attachment&aid=NTUxNzR8NGNiNzczNzl8MTM3MDU2ODk5MnwxODM3NDR8MTExMDQ5&noupdate=yes
|
|