24小时热门版块排行榜    

查看: 1224  |  回复: 5
【悬赏金币】回答本帖问题,作者Dr_Kevin将赠送您 50 个金币

Dr_Kevin

木虫 (小有名气)

[求助] 小弟求滑动轴承非线性油膜力matlab程序,最好是差分法的,谢谢已有2人参与

小弟求滑动轴承非线性油膜力matlab程序,最好是差分法的,谢谢
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

雪之星愿

新虫 (初入文坛)

【答案】应助回帖

% This function is used to calculate the pressure distribution of journal bearing without taking the deformation into account
delta_m=2*pi/m;                                    %沿圆周方向均匀划分m格   
delta_n=2/n;                                        %沿轴向均匀划分n格
for j=1:n+1                                         %对各节点赋压力初值为0
    for i=1:m+1
        P(i,j)=0;
        Q(i,j)=0;
    end
end
S=0;
T=0;
for j=2:n                                    %第一次计算各内部节点的压力值
    for i=2:m
       A=(1+e*cos((i+1/2-1)*delta_m))^3;
                B=(1+e*cos((i-1/2-1)*delta_m))^3;
                C=((1/ratio)*delta_m/delta_n)^2*(1+e*cos((i-1)*delta_m))^3;
                D=C;
                E=A+B+C+D;
                F=delta_m*e*(cos((i+1/2-1)*delta_m)-cos((i-1/2-1)*delta_m));
                P(i,j)=(A*P(i+1,j)+B*P(i-1,j)+C*P(i,j+1)+D*P(i,j-1)-F)/E;
                if (P(i,j)<=0)                                   %引入雷诺边界条件   
            for k=i:m
                P(k,j)=0;
                S=S+abs(Q(k,j));
                T=T+abs(P(i,j));
                Q(k,j)=P(k,j);
            end
            break;
                end
                S=S+abs(P(i,j)-Q(i,j));
                T=T+abs(P(i,j));
                Q(i,j)=P(i,j);
    end
end
while(S/T>0.001)                          %循环计算各内部节点的压力值
    S=0;
    T=0;
    for j=2:n
                for i=2:m
                        A=(1+e*cos((i+1/2-1)*delta_m))^3;
                        B=(1+e*cos((i-1/2-1)*delta_m))^3;
                        C=((1/ratio)*delta_m/delta_n)^2*(1+e*cos((i-1)*delta_m))^3;
                        D=C;
                        E=A+B+C+D;
                        F=delta_m*e*(cos((i+1/2-1)*delta_m)-cos((i-1/2-1)*delta_m));
                        P(i,j)=(A*P(i+1,j)+B*P(i-1,j)+C*P(i,j+1)+D*P(i,j-1)-F)/E;
                        if (P(i,j)<=0)
                for k=i:m
                    P(k,j)=0;
                    S=S+abs(Q(k,j));
                    T=T+abs(P(k,j));
                    Q(k,j)=P(k,j);
                end
                break;
                        end
            S=S+abs(P(i,j)-Q(i,j));
            T=T+abs(P(i,j));
            Q(i,j)=P(i,j);
        end
        end
end
%P;                    %此部分是当本函数单独使用时,用于绘制离散压力分布
%for i=1:m+1
%   x(i)=(i-1)*delta_m;
%end
%for j=1:n+1
%   y(j)=(j-1)*delta_n;
%end
%figure
2楼2016-01-14 15:28:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Dr_Kevin

木虫 (小有名气)

引用回帖:
2楼: Originally posted by 雪之星愿 at 2016-01-14 15:28:03
% This function is used to calculate the pressure distribution of journal bearing without taking the deformation into account
delta_m=2*pi/m;                                    %沿圆周方向均匀划分m格 ...

谢谢~~只是。。。您这个程序中的F表达式对么。。。
3楼2016-01-15 09:54:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Dr_Kevin

木虫 (小有名气)

引用回帖:
2楼: Originally posted by 雪之星愿 at 2016-01-14 15:28:03
% This function is used to calculate the pressure distribution of journal bearing without taking the deformation into account
delta_m=2*pi/m;                                    %沿圆周方向均匀划分m格 ...

你是把F里做减法的1直接运算掉了~~看明白了~谢谢
4楼2016-01-15 10:23:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Fairyflower

新虫 (小有名气)

【答案】应助回帖

引用回帖:
2楼: Originally posted by 雪之星愿 at 2016-01-14 15:28:03
% This function is used to calculate the pressure distribution of journal bearing without taking the deformation into account
delta_m=2*pi/m;                                    %沿圆周方向均匀划分m格 ...

你好,能不能给一下这个程序模型的出处,谢谢!
5楼2016-11-01 14:31:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

熊友平

新虫 (初入文坛)

6楼2018-07-19 23:10:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Dr_Kevin 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 对象没有,还非常想读博,难以抉择 +25 pvrw0224 2024-06-23 48/2400 2024-06-26 13:23 by pvrw0224
[教师之家] 神奇的中医 +8 水冰月月野兔 2024-06-24 10/500 2024-06-26 12:10 by lyfbangong
[硕博家园] 怎么带研究生? +22 豆豆小小2 2024-06-20 39/1950 2024-06-26 11:49 by 豆豆小小2
[考研] 刚当完兵回来想考研 +5 五官在线 2024-06-23 16/800 2024-06-26 09:01 by Xiaolin81
[硕博家园] 申博雅思求助 +6 刘嘉研究究 2024-06-24 7/350 2024-06-26 07:08 by 小李醒yy
[考博] 没读上博,好焦虑! +6 wangzhe_bs 2024-06-24 8/400 2024-06-25 21:15 by wangzhe_bs
[第一性原理] Vasp 版权问题 10+4 竹叶青9 2024-06-22 5/250 2024-06-25 14:58 by 无所谓109
[基金申请] 焦虑没有毛线用,默默前行是王道! +4 漠上藜梭 2024-06-24 8/400 2024-06-25 14:32 by 漠上藜梭
[教师之家] 复旦夏同学退学理由说明,哪儿可以下载? +7 苏东坡二世 2024-06-21 8/400 2024-06-25 12:42 by 药嘿1233
[基金申请] 今年什么时候会评啊 +7 lancet0903 2024-06-24 7/350 2024-06-24 18:48 by Pickfoot
[基金申请] 自然基金变化?? +13 今晚推荐22 2024-06-21 23/1150 2024-06-24 17:20 by 舟言川
[金属] EBSD的解析率只有10% +3 wallace6666 2024-06-20 7/350 2024-06-24 16:52 by wallace6666
[基金申请] 青年和面上,哪个上会难度更大 +12 今晚推荐22 2024-06-21 18/900 2024-06-24 11:08 by 半简体
[有机交流] 生成亚胺的反应怎么能进行完全 +3 1369836 2024-06-23 3/150 2024-06-23 18:44 by hwqMSE
[基金申请] 请问三个字的中文名字,在文中到底怎么表示? 5+3 zhongyuan764 2024-06-22 6/300 2024-06-23 17:42 by 鱼翔浅底1
[论文投稿] OSA期刊审稿逾期 +3 Thomas_Squid 2024-06-22 3/150 2024-06-23 15:20 by wspglt
[基金申请] 工材口青年基金上会可能性 +10 今晚推荐22 2024-06-19 13/650 2024-06-23 15:11 by Pickfoot
[基金申请] 国产期刊影响因子大于12的有20多个个了 +17 babu2015 2024-06-20 22/1100 2024-06-23 13:12 by 德尚中行
[有机交流] 怎么萃取出锡盐内包裹的化合物 +4 硕六过 2024-06-19 5/250 2024-06-21 09:50 by 光超嘟嘟
[论文投稿] 第一篇论文投稿进程记录 +4 慎独的小花卷 2024-06-20 9/450 2024-06-20 20:37 by 慎独的小花卷
信息提示
请填处理意见