24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1531  |  回复: 7

LQgraduate

铜虫 (初入文坛)

[求助] 求解轴承润滑性能时,如果承载力不收敛,应该如何调整油膜厚度? 已有1人参与

问题如下(希望做过这方面工作的好心人帮忙解决一下):
计算流体动压推力轴承或者径向轴承的润滑性能时,首先需要利用迭代法使压力收敛,从而求解雷诺方程;然后要使轴承的承载力也收敛,如果不收敛,需要修正最初假设的最小和最大油膜厚度,直到收敛为止。问题来了,就是如果承载力不收敛,应该如何调整油膜厚度?有什么方法吗?还是纯粹靠经验?
回复此楼
我累也不说累!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Tennisgraf

银虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
承载是大还是小。过小,调整最大最小油膜厚度,使楔形油膜的斜度大一些看看。反之亦然。
2楼2013-01-10 14:49:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

LQgraduate

铜虫 (初入文坛)

首先,谢谢你的回复。但是,问题在于,你的意思是说要靠经验调整了,反复尝试对吧,知道承载力收敛为止。那么有没有什么方法,比如某个算法,可以实现编程然后让油膜厚度自动调整直到承载力收敛为止啊?我在文献上看到了一种方法,说是用二分法可以,但我试了一下,做出来啊!这样吧,我把程序贴到上边来,你看帮我看一下问题出在哪里吧?我加了注释了,如果有看不懂的地方,再交流。以下是我用matlab编写的五点差分法离散雷诺方程用SOR(超松弛迭代法)求解压力分布的源程序:
clear all
r1=31e-3;%推力瓦内径
r2=71e-3;%推力瓦外径
h1=15e-6;%假设的初始最小水膜厚度
h2=30e-6;%假设的初始最大水膜厚度
theta1=50*pi/180;%推力瓦的夹角
beita=0.001*pi/180;%推力瓦周向倾角
k=6;%推力瓦块数
F1=3000;%轴向推力
n1=1000;%轴承转速
omiga=2*pi*n1/60;%推力轴承角速度
miu=0.001;%水的粘度
l=((r1+r2)/2)*theta1;%轴瓦长度
P0=1.0064e+06;%压力量纲系数
nx=40;%周向划分的网格数
ny=40;%径向划分的网格数
deltax=(50/nx)*(pi/180);%周向网格的单位长度
deltay=(r2-r1)/(r1*ny);%径向网格的单位长度
r=zeros(nx+1,ny+1);%初始化无量纲半径矩阵
theta=zeros(nx+1,ny+1);%初始化无量纲角度矩阵
H=zeros(nx+1,ny+1);%初始化无量纲水膜厚度矩阵
while 1
for i=1:nx+1
    for j=1:ny+1
        r(i,j)=1+(j-1)*deltay;%无量纲半径矩阵
        theta(i,j)=(i-1)*deltax;%无量纲角度矩阵
        H(i,j)=h2/h1-((h2-h1)/h1)*(theta(i,j)/theta1);%可倾瓦水膜厚度无量纲表达式
    end
end
h=h1*H;%有量纲润滑膜厚度矩阵
P=zeros(nx+1,ny+1);%初始化无量纲节点压力
A=zeros(nx+1,ny+1);%初始化系数矩阵A
B=zeros(nx+1,ny+1);%初始化系数矩阵B
C=zeros(nx+1,ny+1);%初始化系数矩阵C
D=zeros(nx+1,ny+1);%初始化系数矩阵D
E=zeros(nx+1,ny+1);%初始化系数矩阵E
F=zeros(nx+1,ny+1);%初始化系数矩阵F
P2=zeros(nx+1,ny+1);%初始化无量纲压力矩阵P2
P3=zeros(nx+1,ny+1);%初始化无量纲压力矩阵P3
S=0;%初始化误差表达式的分子
T=0;%初始化误差表达式的分母
wucha=1;%初始化误差
error=1e-3;%压力迭代终止精度
error2=0.01;%承载力迭代终止精度
count=0;%初始化迭代次数
w=1.75;%松弛因子
while(wucha>=error)
    PP=P;
    for i=2:nx
        for j=2:ny
            P2(i,j)=P(i,j);
            A(i,j)=((H(i+1,j)+H(i,j))/2)/r(i,j);
            B(i,j)=((H(i-1,j)+H(i,j))/2)/r(i,j);
            C(i,j)=((deltax/deltay)^2)*((r(i,j+1)+r(i,j))/2)*((H(i,j+1)+H(i,j))/2)^3;
            D(i,j)=((deltax/deltay)^2)*((r(i,j-1)+r(i,j))/2)*((H(i,j-1)+H(i,j))/2)^3;
            E(i,j)=A(i,j)+B(i,j)+C(i,j)+D(i,j);
            F(i,j)=6*deltax*r(i,j)*((H(i+1,j)-H(i-1,j))/2);
            P3(i,j)=(A(i,j)*P(i+1,j)+B(i,j)*P(i-1,j)+C(i,j)*P(i,j+1)+D(i,j)*P(i,j-1)-F(i,j))/E(i,j);
            P(i,j)=(1-w)*P2(i,j)+w*P3(i,j);
            if P(i,j)<0
                P(i,j)=0;
            end
        end
    end
    for i=2:nx
        for j=2:ny
            S=S+abs(P(i,j)-PP(i,j));
            T=T+abs(P(i,j));
        end
    end
    wucha=S/T;
    count=count+1;
end
load=0;%承载力初始值
for i=1:nx
    for j=1:ny
        ds=pi*(r(i,j+1)^2-r(i,j)^2)*(deltax/(2*pi));
        load=load+k*P0*P(i,j)*ds*(r1^2);
    end
end
tt=abs(load-F1)/F1;
if tt     hmin=min(min(h));
    hmax=max(max(h));
    break;
elseif load>F1
    h1=(h1+h2)/2;
    h2=h1+l*tan(beita);
else
    h2=(h1+h2)/2;
    h1=h2-l*tan(beita);
end
P0=omiga*miu*r1^2/(h1^2);
end
figure(1);
[x,y]=meshgrid((0:deltax/(pi/180):50),(0:deltay*r1:r2-r1));
mesh(x,y,h);
xlabel('周向/°');
ylabel('径向r/m');
zlabel('h/m');
figure(2);
[x,y]=meshgrid((0:deltay*r1:r2-r1),(0:deltax/(pi/180):50));
mesh(x,y,P);
xlabel('径向r/m');
ylabel('周向/°');
zlabel('P');
我累也不说累!
3楼2013-01-10 15:23:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

LQgraduate

铜虫 (初入文坛)

不好意思,出了点小错误,修正一下:
H(i,j)=h2/h1-((h2-h1)/h1)*(theta(i,j)/theta1);%可倾瓦水膜厚度无量纲表达式
改为
H(i,j)=h2/h1-((h2-h1)/h1)*(theta(i,j)/theta1);%扇形斜面固定瓦水膜厚度无量纲表达式
我累也不说累!
4楼2013-01-10 15:31:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

LQgraduate

铜虫 (初入文坛)

引用回帖:
2楼: Originally posted by Tennisgraf at 2013-01-10 14:49:31
承载是大还是小。过小,调整最大最小油膜厚度,使楔形油膜的斜度大一些看看。反之亦然。

我把程序贴在上边了,帮我看一下吧,谢了
我累也不说累!
5楼2013-01-10 17:06:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wshuagfnui

新虫 (初入文坛)

【答案】应助回帖

把网格划分的粗一些,先把松弛因子减小,如果更加不收敛就增大,通过几次调整松弛因子的数值应该能收敛。
6楼2013-01-26 12:27:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

LQgraduate

铜虫 (初入文坛)

引用回帖:
6楼: Originally posted by wshuagfnui at 2013-01-26 12:27:27
把网格划分的粗一些,先把松弛因子减小,如果更加不收敛就增大,通过几次调整松弛因子的数值应该能收敛。

谢谢,也许有帮助吧
我累也不说累!
7楼2013-01-28 14:53:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yangqijiang

新虫 (小有名气)

【答案】应助回帖

你的二分法编写时出现错误了
8楼2014-03-15 21:54:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 LQgraduate 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085400电子信息类(川大控制工程)求调剂可跨专业 求老师联系 +6 626776879 2026-04-08 6/300 2026-04-14 20:09 by gwjxiaolang
[考研] 药学305求调剂 +6 玛卡巴卡boom 2026-04-11 6/300 2026-04-14 19:48 by zhouxiaoyu
[考研] 化学070300 求调剂 +23 哈哈哈^_^ 2026-04-12 23/1150 2026-04-14 16:30 by zhouxiaoyu
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
[考研] 一志愿085802 323分求调剂 +13 drizzle_9 2026-04-12 14/700 2026-04-13 10:26 by Faiz5552
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 086003调剂求助 +21 苏弋万 2026-04-09 22/1100 2026-04-11 20:25 by dongdian1
[考研] 调剂求助 +6 果然有我 2026-04-11 7/350 2026-04-11 16:22 by 明月此时有
[考研] 调剂 +5 文道星台 2026-04-11 5/250 2026-04-11 15:01 by 凯凯要变帅
[考研] 本人女孩 +7 吼吼, 2026-04-10 9/450 2026-04-11 14:45 by ACS Nano——
[考研] 288求调剂 +15 代fish 2026-04-09 16/800 2026-04-11 10:26 by wwj2530616
[考研] 中药学调剂 初试324 +4 洋甘菊、 2026-04-10 6/300 2026-04-11 09:41 by gong120082
[考研] 282,求调剂 +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by 猪会飞
[考研] 求调剂 材料与工程 324分 专硕 +19 翩翩一书生 2026-04-10 21/1050 2026-04-10 11:41 by wp06
[考研] 已调剂 +18 柴郡猫_ 2026-04-09 19/950 2026-04-09 22:10 by 柴郡猫_
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 0703化学求调剂 +21 不知名的小卅 2026-04-08 21/1050 2026-04-09 18:55 by l_paradox
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 22408 266求调剂 +11 masss11222 2026-04-07 14/700 2026-04-08 11:06 by yulian1987
信息提示
请填处理意见