24小时热门版块排行榜    

查看: 1227  |  回复: 5
【悬赏金币】回答本帖问题,作者Dr_Kevin将赠送您 50 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

Dr_Kevin

木虫 (小有名气)

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

小弟求滑动轴承非线性油膜力matlab程序,最好是差分法的,谢谢
回复此楼
已阅   回复此楼   关注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的回帖
查看全部 6 个回答

雪之星愿

新虫 (初入文坛)

【答案】应助回帖

% 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的回帖

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的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 对象没有,还非常想读博,难以抉择 +35 pvrw0224 2024-06-23 64/3200 2024-06-29 08:10 by tfang
[考博] 30岁 想读非全博,求建议 +7 八千里路云雨泥 2024-06-27 17/850 2024-06-29 08:03 by 八千里路云雨泥
[论文投稿] 我在写关于多维空间的论文,希望能与大家交流,准备在science上发表 +10 lgf519 2024-06-24 14/700 2024-06-29 01:16 by f1yfish
[基金申请] 博后BC就没人问么?存在感好低啊! +5 qade544 2024-06-28 5/250 2024-06-29 00:20 by 666中
[基金申请] 科研之友最近访客那出现来自北京的未知用户,什么情况? +6 lihangshi 2024-06-28 7/350 2024-06-29 00:07 by 旁观2020
[药学] 大佬们来讨论下,为什么分子里加入了有毒性的官能团分子反而没毒了 +4 HF111001 2024-06-24 5/250 2024-06-28 22:45 by 渣男2019
[基金申请] 请问三个字的中文名字,在文中到底怎么表示? 5+3 zhongyuan764 2024-06-22 8/400 2024-06-28 21:56 by zhongyuan764
[访问学者] 蹲CSC结果,会延迟到七月初吗? +7 326lhpqk 2024-06-27 8/400 2024-06-28 21:12 by 326lhpqk
[基金申请] 75批博后基金 +27 d1121345006 2024-06-28 38/1900 2024-06-28 19:40 by sizhouyi
[基金申请] 博后网上办公系统维护 +14 取名字烦人 2024-06-25 23/1150 2024-06-28 17:22 by cincpac
[基金申请] 省基金太难了 +13 aasahr 2024-06-26 15/750 2024-06-28 16:57 by lqllinqiaoli
[基金申请] 75批面上出结果了么?系统卡的进不去了 +4 wziguang33 2024-06-27 4/200 2024-06-27 15:53 by xter9665
[基金申请] 青年基金E02口青基去年几个函评专家? +6 他山攻玉之石 2024-06-25 9/450 2024-06-26 15:09 by 他山攻玉之石
[教师之家] 神奇的中医 +8 水冰月月野兔 2024-06-24 10/500 2024-06-26 12:10 by lyfbangong
[考博] 申博好难 +6 自强不息a?a 2024-06-24 6/300 2024-06-25 23:02 by 考研吒儿
[基金申请] 能看出是否上会了吗 +10 articlefan 2024-06-23 15/750 2024-06-25 16:05 by 请慎重修改昵称
[基金申请] 2024安徽省哲社立项名单公示 +3 robin_work 2024-06-24 6/300 2024-06-25 14:37 by Pickfoot
[教师之家] 复旦夏同学提出高校成年人学生退学不应该让家长审核,大家认同吗? +10 苏东坡二世 2024-06-22 17/850 2024-06-24 16:52 by wanghuawei
[金属] 寻找钛合金热压缩代做 +4 liuyang358 2024-06-23 4/200 2024-06-24 13:50 by 搬砖狗不放弃
[基金申请] 说博后基金7月出的真打电话了吗? +12 antonysole 2024-06-24 14/700 2024-06-24 13:39 by sizhouyi
信息提示
请填处理意见