24小时热门版块排行榜    

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

Dr_Kevin

木虫 (小有名气)

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

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

熊友平

新虫 (初入文坛)

6楼2018-07-19 23:10:31
已阅   回复此楼   关注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的回帖

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的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 2020面地青已有会评专家接到电话了 +10 dream200606 2024-06-28 12/600 2024-06-29 08:25 by llhljsy
[基金申请] 青拔答辩通知出来了 +4 5011fudan 2024-06-28 4/200 2024-06-29 08:20 by llhljsy
[教师之家] +6 小木虫用户100号 2024-06-28 6/300 2024-06-29 08:11 by 小毛球
[基金申请] 统计一波计分系数 +3 lyfbangong 2024-06-28 4/200 2024-06-28 23:11 by nuonuocsh
[基金申请] 收到科研之友的邮件 +13 prisonrabbit 2024-06-28 14/700 2024-06-28 19:53 by jyang1999
[考研] 刚当完兵回来想考研 +8 五官在线 2024-06-23 26/1300 2024-06-28 19:20 by 五官在线
[基金申请] 演员杨幂在核心期刊发表论文,中国广播电视学期刊 +10 babu2015 2024-06-22 13/650 2024-06-28 17:12 by ckxbear
[基金申请] 有当年结题的在研国基对申请影响大不大 1+4 sunjc 2024-06-28 13/650 2024-06-28 17:09 by lijian7338
[基金申请] 第75批博后面上 “应该是这两周”基金管理处的电话终于通了 +8 makele123 2024-06-27 11/550 2024-06-28 16:32 by since—2010
[公派出国] 今天公派访问学者项目会出结果吗? +4 326lhpqk 2024-06-28 4/200 2024-06-28 14:28 by 65syn
[教师之家] 高校辞职,要求赔偿,这到底合不合理 +25 传动_海神 2024-06-23 37/1850 2024-06-28 12:39 by caiqingchong
[考博] 25申请博士 +3 lxcqwer 2024-06-27 3/150 2024-06-28 12:28 by highxixi
[基金申请] 博后特别资助与面上时间 +23 alex5387 2024-06-27 31/1550 2024-06-28 09:56 by 心上之田
[有机交流] 脱酯基合成步骤 5+4 小辉灰@anhui 2024-06-25 8/400 2024-06-27 11:17 by 火龙骑士
[基金申请] 青年基金E02口青基去年几个函评专家? +6 他山攻玉之石 2024-06-25 9/450 2024-06-26 15:09 by 他山攻玉之石
[基金申请] 省基金对国自然申请是有利还是有弊 +6 zycumt04 2024-06-26 7/350 2024-06-26 15:02 by 潇湘之迷
[基金申请] 基金申请书名称有变化 +5 xuel2011 2024-06-25 7/350 2024-06-26 00:07 by 老虎当猫养
[基金申请] 博后面上到底什么时候出结果??? +7 爱学lsy 2024-06-24 7/350 2024-06-25 19:24 by 暴走的蒜泥
[教师之家] 有没有今年的影响因子? +6 jurkat.1640 2024-06-22 10/500 2024-06-24 22:48 by 潇湘之迷
[有机交流] 求助析晶问题 20+4 dengdawang 2024-06-24 5/250 2024-06-24 21:22 by cc116
信息提示
请填处理意见