10-轴系设计计算-5.m

MATLAb 机械源码文件好东西啊

 '5-滚动轴承寿命计算(深沟球轴承6009)'
c6r=21000;                                  % 额定动载荷(N)
c60r=14800;                                 % 额定静载荷(N)
if fra>=frb
    '以轴承A作为计算依据'
    fr6=fra;
else
    '以轴承B作为计算依据'
    fr6=frb;
end
xd6=fa/c60r;                                % 轴承的相对轴向载荷
ea6=0.28;                                   % 6类轴承的判断参数(查表)
if fa/fr6>ea6;                              % 轴承6类轴向载荷与径向载荷之比
    x6a=0.56;                               % 确定6类轴承载荷折算系数X
    y6a=1.55;                               % 确定6类轴承载荷折算系数Y
else
    x6a=1;
    y6a=0;
end
p6a=round(x6a*fr6+y6a*fa);                  % 6类轴承的当量动载荷(N)
fp=1.5;                                     % 轴承载荷系数(减速器中等冲击)
lh6a=round(1e6/60/n2*(c6r/fp/p6a)^3);       % 计算6类轴承的寿命(h)
disp ' '
disp '       ==========   深沟球轴承寿命计算   ==========';
fprintf(1,'          6009轴承额定动载荷   c6r = %3.0f N \n',c6r);
fprintf(1,'                  额定静载荷  c60r = %3.0f N \n',c60r);
fprintf(1,'                相对轴向载荷   xd6 = %3.3f \n',xd6);
fprintf(1,'                    判断参数   ea6 = %3.3f \n',ea6);
fprintf(1,'          轴向与径向载荷之比   fae = %3.3f \n',fa/fr6);
fprintf(1,'                径向载荷系数   x6a = %3.2f \n',x6a);
fprintf(1,'                轴向载荷系数   y6a = %3.2f \n',y6a);
fprintf(1,'                  当量动载荷   p6a = %3.0f N \n',p6a);
fprintf(1,'                    轴承寿命  lh6a = %3.0f h \n',lh6a);